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ABSTRACT 


NPSAT 1  is  a  gravity-gradient  friendly,  prolate  body  designed  to  fly  at  600  ±40 
km  inclined  to  34.5  degrees.  The  satellite  uses  a  magnetic  3-axis  active  attitude  control 
system  (ACS)  using  magnetic  torque  rods  that  interact  with  the  Earth’s  magnetic  field. 
This  thesis  accomplishes  three  goals. 

The  first  objective  was  to  verify  and  to  validate  the  magnetic  attitude  control  sys¬ 
tem  program  and  model  developed  by  Leonard.  The  verification  and  validation  process 
was  completed  in  two  steps.  The  first  step  accomplished  an  independent  modeling  of  the 
Earth’s  magnetic  field  using  MATLAB.  The  second  step  completed  a  verification  via  in¬ 
spection  of  Leonard’s  ACS  SIMULINK  model.  The  verification  confirmed  that  Leo¬ 
nard’s  modular  sub-components  of  the  disturbance  torques,  the  quaternion  vectors,  the 
Euler  angles,  the  spacecraft  kinematics  and  dynamics,  and  ACS  control  laws  conformed 
to  current  ACS  empirical  theory. 

The  second  goal  was  to  establish  a  laboratory  used  to  demonstrate  the  ACS  ro¬ 
bustness  and  ability  to  perform  as  designed.  The  laboratory  was  created  to  house  an  air¬ 
bearing  platfonn  that  simulates  NPSAT  1  characteristics. 

The  third  goal  was  to  perform  hardware-in-the-loop  experiments  with  the 
NPSAT  1  ACS  software  and  model.  Hardware-in-the-loop  tests  were  performed  to  the 
magnetic  torque  rods,  torque  rod  driver  circuit  board,  micro-controller  computer,  and 
control  interfaces.  Specifically,  solenoid  current  tests,  magnetic  field  detennination  tests, 
and  digital-to-analog  conversion  tests  were  completed. 
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EXECUTIVE  SUMMARY 


NPSAT 1  is  the  second  experimental  small  satellite  designed  and  constructed  by 
the  Naval  Postgraduate  School.  The  satellite’s  mission  is  to  afford  officer-students  an 
opportunity  to  apply  classroom  knowledge  to  a  platform  that  will  actually  fly  in  space. 
The  NPSAT1  project  is  administered  by  the  NPS  Space  System’s  Academic  Group  and  is 
sponsored  by  the  DOD  Space  Test  Program.  The  scheduled  launch  is  October  2006. 

NPSAT  1  is  a  prolate  body  designed  to  fly  at  an  altitude  of  600  ±40  km.  NPSAT  1 
is  a  gravity-gradient  friendly,  non-spinning,  nadir-pointed  body  inclined  at  35.4  degrees. 
The  satellite’s  attitude  control  system  is  unique  and  experimental.  Specifically,  NPSAT  1 
will  use  a  three-axis  active  magnetic  attitude  control  system  designed  to  maintain  the  sat¬ 
ellite  within  10  degrees  of  its  pointing  target.  The  magnetic  attitude  control  system  is  de¬ 
signed  to  change  its  attitude  based  upon  measurement  of  the  Earth’s  magnetic  field.  An 
attitude  change  is  completed  by  comparing  externally  measured  field  values  to  approxi¬ 
mated  values  resident  on  the  spacecraft’s  computer.  The  attitude  control  system  program 
uses  this  comparison  to  perform  an  estimated  attitude  error  which  equates  to  the  amount 
of  dipole  moment  needed  to  torque  the  body.  The  torque  is  affected  by  using  three  mag¬ 
netic  dipole  moments  that  are  aligned  with  the  X,  Y,  and  Z  axes  of  the  satellite.  Design  of 
the  magnetic  attitude  control  program  and  simulation  model  was  first  completed  by  Leo¬ 
nard  and  is  located  in  Ref.  [6]. 

This  thesis  completes  three  goals.  The  first  goal  was  to  accomplish  an  independ¬ 
ent  verification  and  validation  of  Leonard’s  attitude  control  system  (ACS)  program  and 
model.  The  verification  and  validation  process  was  completed  in  two  steps.  The  first  step 
accomplished  an  independent  modeling  of  the  Earth’s  magnetic  field  using  MATLAB. 
The  second  step  completed  a  verification  via  inspection  of  Leonard’s  ACS  SIMULINK 
model.  The  verification  confirmed  that  Leonard’s  modular  sub-components  of  the  distur¬ 
bance  torques,  the  quaternion  vectors,  the  Euler  angles,  the  spacecraft  kinematics  and  dy¬ 
namics,  and  ACS  control  laws  confonned  to  current  ACS  empirical  theory. 

The  second  goal  was  to  establish  a  laboratory  that  houses  an  air-bearing  platform. 
The  air-bearing  is  designed  to  mimic  NPSAT  1  attitude  movement  using  the  resident  ex- 
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temal  magnetic  field  as  a  reference.  The  final  objective  was  to  commence  hardware-in- 
the-loop  tests  that  exercised  the  ACS  program  and  supporting  hardware. 

The  verification  and  validation  via  inspection  of  Leonard’s  ACS  program  and 
ACS  model  was  completed  satisfactorily.  This  was  accomplished  by  researching  the 
magnetic  attitude  control  theory  cited  by  Leonard  and  independently  drafting  an  ACS 
program  and  model  similar  to  Leonard’s.  Both  Leonard’s  and  this  thesis’  ACS  programs 
included  the  modeling  of  the  Earth’s  magnetic  field,  conversion  of  coordinates  to  the  ap¬ 
propriate  reference  frame,  calculation  of  the  Euler  3-2-1  angular  rotation  scheme,  identi¬ 
fication  and  application  of  external  disturbance  torques,  comparison  of  ephemeris  field 
data  to  measured  field  strengths,  determination  of  the  required  dipole  moment,  and  appli¬ 
cation  of  counter  torques.  The  program  and  model  were  generated  using  MATLAB  and 
SIMULINK. 

Following  the  successful  verification  of  Leonard’s  program  and  model,  a  labora¬ 
tory  designed  to  test  the  ACS  program  was  established.  The  laboratory  was  designed  to 
use  an  air-bearing  test  platform. The  air-bearing  was  constructed  to  exhibit  the  character¬ 
istics  of  NPSAT1.  The  air-bearing  uses  three  magnetic  torque  rods  capable  of  producing 
a  dipole  moment  of ±33  A  ■  m2 .  Additionally  hardware  located  on  the  air-bearing  includes 
a  torque  rod  driver  circuit  board,  a  micro-controller  single  board  computer,  batteries, 
power  supply,  and  remote  communications  equipment.  However,  since  the  ACS  program 
uses  external  magnetic  field  values  for  comparison  against  measured  values,  a  thorough 
understanding  of  the  laboratory’s  resident  magnetic  field  was  required.  Therefore,  three 
sets  of  magnetic  field  surveys  were  conducted.  These  surveys  provided  the  necessary 
data  needed  to  map  the  laboratory’s  resident  magnetic  field.  The  mapping  provides  a  de¬ 
scription  of  the  field’s  magnitude,  its  location  and  direction,  and  the  presence  of  local 
field  disturbances,  if  any.  The  information  developed  from  the  mapping  process  is  used 
as  the  air-bearing  ACS  ephemeris  data. 

After  the  laboratory  was  established,  hardware-in-the-Ioop  tests  commenced. 

The  tests  were  designed  to  exercise  the  ACS  program  using  a  hardware  environment. 
However,  prior  to  executing  the  hardware-in-the-Ioop  in  the  loop  process,  the  ACS  pro¬ 
gram  had  to  be  converted  into  an  executable  code  format.  This  conversion  process  was 
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completed  using  the  SIMULINK  Real  Time  Workshop  function.  The  Real  Time  Work¬ 
shop  function  converts  a  model  into  ANSI  ‘C’  code.  This  executable  fonnat  code  was 
then  loaded  to  the  air-bearing’s  micro-controller  computer.  Once  loaded,  tests  com¬ 
menced  to  determine  if  the  ACS  program  could  successfully  apply  a  dipole  moment. 

The  initial  battery  of  experiments  was  marginally  successful.  The  ACS  program 
successfully  read  incoming  magnetometer  readings  and  created  torque  commands.  How¬ 
ever,  repeated  experiments  proved  that  the  output  commands  were  unreliable.  An  exami¬ 
nation  of  the  executable  code,  signal  routing,  and  ACS  model  variables  was  completed. 
No  faults  were  recognized;  therefore,  attention  was  focused  upon  the  air-bearing  hard¬ 
ware.  Specifically,  current  tests  were  completed  to  determine  if  the  appropriate  amount 
of  current  was  being  applied  to  the  torque  rods.  The  tests  proved  that  the  solenoids  were 
not  receiving  the  correct  current  values  called  for  by  the  ACS.  Inspections  proved  that 
the  micro-controller  was  not  routing  the  input/output  data  correctly  and  that  there  were 
faults  residing  in  the  torque  rod  driver  board.  Repairs  were  affected  and  testing  resumed. 

The  initial  hardware-in-the-loop  tests  showed  that  other  problems  that  needed  at¬ 
tention.  Using  bench  support  test  equipment,  the  torque  rod  driver  circuit  board  digital- 
to-analog  process  was  measured.  The  results  proved  that  the  D/A  conversion  was  being 
obscured  by  a  great  deal  of  noise.  Thus,  the  analog  values  produced  by  the  driver  board 
were  being  skewed  which  caused  the  current  to  the  solenoids  to  be  misapplied.  Further¬ 
more,  more  research  was  perfonned  upon  the  air-bearing’s  magnetic  torque  rods  to  gain 
a  better  understanding  of  the  coil’s  capabilities.  From  this  analysis,  it  was  determined 
that  the  torque  rods  presently  being  used  do  not  provide  the  fidelity  needed  to  apply  pre¬ 
cise  torque  at  the  lower  dipole  moment  values.  Additionally,  this  thesis  shows  that  torque 
rods  presently  in  use  maintain  a  residual  magnetism  that  could  possible  upset  the  ACS 
process. 
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I.  INTRODUCTION 


A.  THESIS  OBJECTIVE 

The  Naval  Postgraduate  School  (NPS)  Space  Systems  Academic  Group  (SSAG)  and 
the  Electrical  and  Computer  Engineering  Department  are  currently  building  a  Low  Earth  Orbit 
(LEO)  satellite.  The  scheduled  launch  is  October  2006.  The  satellite,  NPSAT1,  is  being  de¬ 
signed,  constructed,  and  tested  by  NPS  officer-students,  faculty,  and  departmental  engineering 
staff.  The  project’s  goal  is  to  afford  officer-students  an  opportunity  to  apply  their  engineering 
skills  to  a  fully  mission-capable  space  vehicle.  The  NPS  ATI  mission  and  development  was 
conceived  and  developed  by  the  SSAG.  The  project  is  sponsored,  executed,  and  funded  by  the 
Department  of  Defense  (DOD  Space  Test  Program  (SMC  Det  12)). 

NPSAT1  is  a  prolate  body  that  will  fly  at  an  altitude  of  600  ±40  km.  It  is  a  nadir¬ 
pointing,  three-axis,  non-spinning  body  inclined  to  an  angle  of  35.4  degrees.  NPSAT1  uses  a 
command  and  data  handling  (C&DH)  subsystem,  an  electrical  power  (EPS)  subsystem,  an  atti¬ 
tude  control  (ACS)  subsystem,  and  a  radio  frequency  (RFS)  subsystem.  Additionally,  the  satel¬ 
lite  will  house  six  experiments. 

This  thesis  focuses  upon  the  attitude  control  system.  NPSAT1  utilizes  a  closed-loop 
magnetic  actuating  feedback  control  system  using  magnetometers  and  magnetic  torque  control 
rods.  Most  satellites  rely  upon  a  combination  of  momentum  wheels,  reaction  wheels,  thrusters, 
horizon  sensors,  sun  sensors,  or  GPS  to  provide  attitude  control.  However,  with  the  availability 
of  microcomputer  processing,  the  use  of  magnetic  torque  rods  and  magnetometers  to  fully  con¬ 
trol  a  spacecraft’s  attitude  is  now  feasible.  NPSAT1  is  unique.  No  other  spacecraft  has  ever 
been  flown  using  only  magnetic  torque  rods  to  drive  its  attitude  position. 

The  magnetic  ACS  relies  upon  a  MATLAB  program  to  measure  and  compare  the 
Earth’s  magnetic  field  to  an  embedded  database.  If  the  magnetic  field  is  not  in  line  with  a  cal¬ 
culated  value,  a  command  will  be  sent  to  initiate  attitude  control  correction  using  the  magnetic 
torque  rods. 

To  date,  all  research  has  been  completed  using  a  program  and  model  [9]  developed  by 
Professor  Barry  Leonard  of  the  NPS  Space  Systems  Academic  Group.  However,  a  complete 
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independent  verification  via  empirical  calculations,  computer  simulations,  and  static  methods 
had  yet  to  be  accomplished. 

This  thesis  conducted  that  independent  analysis,  verification,  and  validation  of  the  ACS 
control  program  and  model.  Additionally,  this  thesis  documents  the  establishment  of  an  air¬ 
bearing  laboratory.  The  air-bearing  laboratory  was  used  to  test  the  ACS  control  program  using 
hardware-in-the-loop  experiments.  These  goals  were  accomplished  in  four  phases. 

First,  an  independent  derivation  of  the  control  program  and  model  based  upon  the  most 
current  literature  regarding  attitude  control  systems  using  magnetic  torques  was  perfonned. 
This  analysis  examined  the  resources  Leonard  cites  to  insure  correctness  and  validity. 

The  program  and  model  derivations  used  classical  and  state  space  control  theory  cou¬ 
pled  with  space  system  attitude  control  dynamics  theory.  The  analysis  included  the  application 
of  the  quaternion  control  law,  reduced  order  estimators,  gravity  gradient,  solar  and  aerody¬ 
namic  disturbance  torques.  Additionally,  the  Earth’s  10th-order,  10th-degree  magnetic  field  was 
modeled  for  use  during  simulation  and  hardware  tests. 

Second,  the  work  performed  a  detailed  examination  of  Leonard’s  MATLAB/SIMU- 
LINK  model  was  performed  to  verify  that  it  is  correct.  The  ACS  model  was  confirmed  to  be 
accurate  by  inspecting  Leonard’s  model  for  accuracy  versus  the  research  sources  he  cited. 

Third,  a  laboratory  that  houses  an  air-bearing  test  platform  was  established.  Specifi¬ 
cally,  the  laboratory’s  local  magnetic  field  was  surveyed  and  mapped.  The  information  gath¬ 
ered  from  the  mapping  process  established  ephemeris  data  required  by  the  ACS  program  to 
compute  a  counter  torque.  Inducing  current  into  three  solenoid  coils  aligned  with  the  space¬ 
craft’s  three  axes  creates  the  counter  torque.  The  current  traveling  through  the  solenoid’s  wind¬ 
ings  creates  a  dipole  moment,  magnetic  field,  and  torque. 

Last,  an  air-bearing  platform  was  used  to  physically  test  the  control  model  and  pro¬ 
gram.  Magnetometers  and  torque  control  rods  were  tested  to  ensure  all  software  and  hardware 
interfaces  are  operating  in  accordance  with  the  ACS  algorithm  and  design  specifications. 
Though  the  exact  on-orbit  magnetic  field  cannot  be  simulated,  the  air  bearing  tests  were  de¬ 
signed  to  ensure  that  the  magnetometers  can  sense  a  need  for  attitude  adjustment.  The  meas¬ 
urements  are  compared  to  ephemeris  magnetic  field  data  to  determine  the  amount  of  counter 
torque  required. 
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This  test  was  accomplished  by  measuring  the  magnetic  field  surrounding  the  air¬ 
bearing  platform.  The  results  were  used  as  the  input  needed  to  establish  ephemeris  tables. 
Ephemeris  magnetic  field  values,  B,  were  compared  to  magnetometer  readings.  The  difference 
between  the  two  is  considered  the  error  between  the  actual  field  and  the  desired  field.  The  error 
was  used  to  determine  the  required  amount  of  dipole  moment  ordered  by  the  ACS.  Moreover, 
once  the  onboard  PC  develops  the  attitude  change  commands,  the  air-bearing  test  allowed  the 
actual  witnessing  of  the  ACS  making  a  change  based  upon  the  sensed  and  processed  data. 

B.  THESIS  ORGANIZATION 

This  thesis  is  separated  into  six  chapters  including  the  introduction. 

Chapter  I  is  an  introduction  regarding  NPSAT1,  its  mission,  and  thesis  objectives. 

Chapter  II  describes  the  overall  NPSAT1  project  to  provide  the  reader  with  an  introduc¬ 
tion  to  the  spacecraft  that  was  studied.  The  description  includes  the  satellite’s  generic  struc¬ 
ture,  NPSAT1  constraints  and  design  specifications,  as  well  as  the  experiments  being  flown  on 
the  spacecraft. 

Chapter  III  describes  the  mathematical  theory  referenced  to  derive  the  ACS  program 
and  model.  Furthermore,  Leonard’s  ACS  program  and  model  are  discussed  and  compared 
against  the  program  and  model  developed  for  comparison.  The  model  is  presented  using  both 
MATLAB  and  SIMULINK  programs. 

Chapters  IV  and  V  discuss  the  air-bearing  laboratory. 

Chapter  V  compiles  and  presents  the  results  from  the  air-bearing  tests. 

Chapter  VI  contains  conclusions  regarding  the  validity  of  Leonard’s  attitude  control 
model  and  program.  The  conclusions  are  summarized  based  on  the  computer  simulation  results 
and  air-bearing  tests.  Moreover,  further  NPS AT  1  ACS  research  is  identified  and  discussed. 

Appendix  A  contains  the  International  Geomagnetic  Reference  Field  coefficients  used 
to  calculate  ephemeris  data  required  by  the  ACS  to  model  the  Earth’s  magnetic  signature. 

Appendix  B  contains  the  ACS  MATLAB  program  developed  to  verifiy  and  validate 
Leonard’s  work. 

Appendix  C  holds  the  ACS  MATLAB  program  developed  by  Leonard. 

Appendix  D  displays  a  cross  sectional  view  of  a  magnetic  torque  rod  used  on  the 
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ACS  air-bearing  test  platfonn. 

Appendix  E  displays  the  SIMULINK  sub-models  built  to  verifity  Leonard’s  ACS 

model. 

Appendix  F  displays  the  SIMULINK  model  developed  by  Leonard. 

Appendices  G,  H,  and  I  contain  the  MATLAB  programs  used  to  model  the  magnetic 
field  of  the  air-bearing  test  platfonn  laboratory. 

Appendix  J  displays  the  SIMULINK  model  used  during  the  ACS  air-bearing  hard- 
ware-in-the-loop  tests. 

Appendix  K  contains  the  MATLAB  program  written  that  interfaces  with  the  air¬ 
bearing  control  software  and  command  computer. 

Appendix  L  contains  the  MATLAB  programs  drafted  to  analyze  the  data  collected 
while  measureing  the  magnetic  torque  rod’s  induced  magnetic  fields  and  dipole  moments. 
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II.  NPSAT1  PROJECT  DESCRIPTION 


A.  NPSAT1  SPECIFICATIONS 

NPSAT1  is  an  experimental  satellite  under  construction  at  NPS.  The  NPSAT1  mission 
was  conceived  and  developed  by  the  NPS  SSAG.  NPSAT1  is  sponsored  and  executed  by  the 
DOD  Space  Test  Program  (SMC  Det  12). 

Three  objectives  were  defined  in  support  of  NPSAT1.  The  first  was  to  provide  a  plat¬ 
form  for  NPS  officer-students  to  apply  their  lessons  to  a  space  system  that  will  actually  fly. 

The  second  goal  was  to  provide  a  space  platform  that  will  carry  six  research  experiments,  the 
testing  of  an  attitude  control  system  (ACS)  based  solely  on  magnetic  control,  and  the  testing  of 
new  and  unproven  SPECTROLAB  solar  cells.  The  last  goal  was  to  support  the  NPS  space  sys¬ 
tems,  mechanical,  and  electrical  engineering  programs  with  a  satellite  that  complements 
PANSAT  (Petite  Amateur  Navy  Satellite),  the  current  NPS  satellite  in  orbit.  NPSAT1  incorpo¬ 
rates  the  lessons  learned  from  the  PANSAT  program  while  simultaneously  exploring  recent 
innovative  techniques  in  small  satellite  construction  that  were  not  available  during  PANSAT 
construction. 

The  satellite  will  house  six  experiments.  The  onboard  experiments  include: 

•  Naval  Research  Laboratory  (NRL)-sponsored  Coherent  Electromagnetic  Radio 
TOmography  (CERTO)  test 

•  NRL-sponsored  Langmuir  Probe  designed  to  perform  on-orbit  measurements  of 
inonspheric  Total-Electron  Content  (TEC). 

•  NPS-sponsored  Configurable  Processor  Experiment  (CPE)  that  tests  the  use  of  an 
adaptable  processor  using  field-programmable  gate  array  technology  with  non¬ 
volatile  FERRO  Random  Access  Memory  (RAM). 

•  NPS-sponsored  Commercial-Off-the-Shelf  (COTS)  visible-wavelength  imager 
(VISIM)  designed  to  produce  less  than  one  kilometer  of  optic  resolution. 

•  NPS-sponsored  three-axis  Micro-Electromechanical  Systems  (MEMS)  -based  rate 
gyro  data. 

•  NPS-sponsored  Solar  Cell  Measurement  System  (SMS)  demonstrations  that  in¬ 
clude  I — V  measurements  of  two  SPRECTROLAB  advanced,  triple-junction  (ATJ) 
solar  cells. 
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The  satellite’s  scheduled  launch  is  October  2006.  The  launch  vehicle  is  a  Lockheed 
Martin  Atlas  V  rocket  equipped  with  a  medium  Evolved  Expendable  Launch  Vehicle  (EELV) 
configured  with  a  Secondary  Payload  Adapter  (EPSA). 

NPSAT1  is  a  prolate  body  that  will  fly  in  a  circular  Low  Earth  Orbit  (LEO).  It  is  a 
gravity-gradient  friendly,  nadir  pointing,  three-axis  non-spinning  body.  NPSAT 1  uses  a  com¬ 
mand  and  data  handling  (C&DH)  subsystem,  an  electrical  power  (EPS)  subsystem,  an  attitude 
control  (ACS)  subsystem,  and  a  radio  frequency  (RFS)  subsystem. 

The  C&DH  subsystem  consists  of  a  PC/ 104  bus,  motherboard,  mass  storage,  A/D  con¬ 
version,  input/output,  power  supplies,  modem,  and  the  configurable  processor  experiment 
(CPE).  All  C&DH  components  are  housed  in  a  rectangular  box  that  can  withstand  the  harsh 
space  environment.  A  386  microprocessor  running  at  a  rate  of  33  MHz  is  used  as  a  central 
processing  unit.  The  power  supply  provides  3.3  V,  5.0  V,  and  12.0  V  DC.  All  electronics  are 
constructed  for  improved  electromagnetic  compatibility.  Using  a  Linux,  PO SIX-compliant 
operating  system,  the  spacecraft  is  able  to  use  software  that  is  readily  available  and  can  be  al¬ 
tered  without  additional  cost.  Specifically,  the  ACS  software  is  written  in  MATLAB  and 
SIMULINK.  The  code  and  model  are  converted  to  ANSI  ‘C’  computer  code  using  the  SIMU- 
LINK  Real  Time  Workshop  toolbox,  XPC  Target  and  XPC  Host  functions. 

The  EPS  subsystem  consisting  of  SPECTROLAB  triple  junction  solar  cells  are  used  to 
convert  sunlight  into  electricity.  The  captured  energy  charges  a  lithium-ion  (Li-ion)  battery. 
The  solar  cells  are  mounted  statically  to  the  spacecraft  chassis  and  possess  24%  minimum  effi¬ 
ciency. 

The  NPSAT  1  attitude  control  system  (ACS)  is  based  upon  the  exploitation  of  the 
Earth’s  magnetic  field  and  gravity-gradient  friendly  moments  of  inertia  where  Iy  >  Ix>  I z. 

Nearly  symmetrical  in  all  aspects,  NPSAT  1  possesses  individual  moments  of  inertia  slightly 
larger  than  each  other,  so  it  takes  advantage  of  the  Earth’s  gravitational  attraction.  This  concept 
assists  in  maintaining  the  spacecraft’s  desired  attitude. 

Three  magnetic  torque  rods  (solenoids)  provide  active  control.  A  three-axis  magne¬ 
tometer  senses  the  Earth’s  magnetic  field  at  a  predetermined  moment  in  time.  The  measure¬ 
ment  is  compared  against  an  onboard  look-up  table  based  upon  current  latitude,  longitude,  and 

altitude.  This  look-up  table  is  a  list  of  calculations  that  estimate  the  Earth’s  magnetic  field.  The 
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ephemeris  data  is  based  upon  a  10th-order,  10th-degree  spherical  harmonic  model.  Calculations 
use  the  International  Geomagnetic  Reference  Field  (IGRF)  coefficients  as  entering  arguments. 
Each  table  value  is  corrected  for  the  estimated  value  corresponding  to  a  particular  point  in  time 
and  space.  Based  upon  the  tabulated  and  measured  data,  the  ACS  performs  attitude  corrections 
by  applying  current  to  three  torque  rods  designed  to  produce  a  dipole  that  can  either  attract  or 
repel.  However,  if  the  on-board  magnetometer  completes  a  measurement  while  the  torque  rods 
are  conducting  an  actuation  maneuver,  the  measurement  received  will  be  inaccurate  because  of 
electromagnetic  interference.  Thus,  the  magnetometer  measures  the  field  following  the  suc¬ 
cessful  completion  of  torque  rod  excitation  and  full  decay. 

The  radio  frequency  subsystem  is  comprised  of  a  dual  antenna  system  that  points  in 
both  the  nadir  and  zenith  directions.  An  up-link  frequency  is  1767.565  MHz.  The  down-link 
frequency  is  tuned  to  2207.3  MHz.  A  100  kbps  transmission  is  achievable  using  a  full  duplex 
channel.  The  ground  station  is  located  at  the  Naval  Postgraduate  School,  Monterey,  California, 
at  a  latitude  of  36.6°  N.  The  satellite  will  communicate  with  the  ground  station  for  approxi¬ 
mately  34  minutes  each  day.  NPSAT1  will  pass  over  the  ground  station  five  times  per  day  with 
each  pass  equal  to  approximately  six  minutes  of  communication. 

NPSAT1  weighs  81.6  kg  (180  lbs).  The  spacecraft  is  a  prolate,  12-sided  cylindrical 
body  with  solar  cells  mounted  on  each  of  its  sides.  Each  end  has  an  antenna  mounted  for  com¬ 
munication  purposes.  The  satellite  will  fly  at  an  altitude  of  600  ±  40  km  with  an  inclination  of 
35.4  degrees.  NPSAT1  is  slightly  gravity-gradient  stabilized.  Table  2.1  lists  the  satellite’s 
Moments  of  Inertia  (MOI),  Center  of  Mass  (cm)  and  Center  of  Pressure  ( cp ),  and  the  offset 
(dL)  specifications  with  reference  to  the  body  axes.  The  MOI  are  the  most  recent  values  as  of 

2 

22  August  2004  and  are  subject  to  change  slightly.  The  MOI  is  measured  in  kg  ■  m  .  The  off¬ 
set,  dL,  is  measured  in  meters. 


Ixx 

Ey 

Ixz 

fvx 

hy 

lyz 

Izx 

Izy 

Izz 

dL* 

dLy 

dLz 

5.404 

-0.002 

0.016 

-0.002 

5.558 

-0.034 

0.016 

-0.034 

2.416 

-0.004 

0.0002 

0.389 

Table  2.1  NPSAT1  Moments  of  Inertia  &  Center  of  Pressure  -  Center  of  Mass  Offset 

[Provided  by  Mr.  Dan  Sakoda,  NPS  SSAG] 
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Figure  2.1  depicts  the  construction  ofNPSATl.  Figures  2.2  and  2.3  are  computer-aided 
drafted  depictions  of  the  satellite. 
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Figure  2.1  NPSAT1  Modular  Component  Model 
[Provided  by  Mr.  Dan  Sakoda,  NPS  SSAG] 
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Figure  2.2  NPSAT1  Computer  Generated  Model 
[Provided  by  Mr.  Dan  Sakoda,  NPS  SSAG] 


Figure  2.3  NPSAT1  Computer  Model  with  Langmuir,  CERTO  Probe,  Sun  Sensors, 

Nadir  Pointing  Antennas  and  Solar  Panels 
[Provided  by  Mr.  Dan  Sakoda,  NPS  SSAG] 
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In  summary,  this  chapter  provided  a  description  of  NPSAT1,  its  mission,  and  design 
criteria.  Chapter  III  will  expand  upon  this  infonnation  by  discussing  in  detail  the  satellite’s 
attitude  control  system  and  the  scientific  theory  it  is  based  upon. 
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III.  NPSAT1  MAGNETIC  ATTITUDE  CONTROL  SYSTEM  EMPERI- 
CAL  DERIVATION,  CONTROL  LAWS,  AND  SIMULINK  MODEL 


A.  INTRODUCTION 

NPSAT1  is  designed  to  change  its  attitude  based  upon  measurement  of  the  Earth’s 
magnetic  field,  B,  which  is  compared  to  a  table  of  theoretical  values,  b  .  (Within  this  thesis  vec¬ 
tors  are  represented  as  variables  with  a  vector  arrow  displayed  above.  Matrices  are  noted  as 
bolded  or  bracketed  variables.)  The  theoretical  values  reside  within  the  satellite’s  onboard 
computer.  The  attitude  control  model  written  in  MATLAB  and  SIMULINK  takes  the  cross 
product  of  B  with  b  as  an  estimated  attitude  error.  This  error  used  to  calculate  the  amount  of 
torque  required  to  adjust  the  satellite’s  attitude  using  a  3-2-1  Euler  angle  rotation  sequence. 

The  3-2-1  rotational  sequence  corresponds  to  the  rotational  movement  through  the  i//,9,0 
Euler  angles.  Additionally,  the  model  compensates  for  environmental  disturbance  torques  pro¬ 
duced  by  the  gravity-gradient,  the  solar,  and  the  aerodynamic  forces.  Therefore,  this  chapter 
discusses  the  mathematics  and  the  control  law  theory  that  the  ACS  is  derived  from.  Items  ad¬ 
dressed  include  the  modeling  of  the  Earth’s  magnetic  field  in  a  low  Earth  orbit,  spacecraft 
kinematics  and  dynamics,  disturbance  torques,  spacecraft  tip-off  attitude  control,  attitude  con¬ 
trol  laws,  and  the  ACS  model. 

B.  EARTH’S  MAGNETIC  FIELD 

“The  Earth’s  magnetic  field  is  predominantly  that  of  a  magnetic  dipole  such  as  that 
produced  by  a  sphere  of  uniform  magnetization  or  a  current  loop.”  [1,  p.  1 13].  The  strength  of 
the  field  is  weakest  at  the  magnetic  equator  and  increases  exponentially  as  the  magnetic  lati¬ 
tude  increases.  As  the  distance  from  the  Earth  increases,  the  magnetic  field  strength  decreases. 
This  decrease  is  proportional  to  1/r  where  r  is  the  distance  from  the  Earth’s  center  of  mass. 

Spherical  harmonics  are  used  to  calculate  the  theoretical  magnetic  field.  The  field  is 
viewed  as  theoretical  because  it  is  in  a  constant  state  of  flux.  The  scalar  potential,  V  (r,  9 ,  <p) ,  is 
given  by  [1,  p.  779]  as 

k  (  n  Y'+1  k 

V(r,e,e)  =  R,Z  —  £(«;cosm(»  +  &;Sm  (3.1) 

n= 1  V  r  J  m=\ 
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which  is  the  foundation  for  the  calculations  to  determine  the  magnetic  field,  B  =  -V  V. 

The  magnetic  field,  B  ,  is  negative  of  the  gradient  of  the  scalar  potential,  V  (r,0,tf>) .  [1]  The 
symbol,  Re ,  is  the  Earth’s  equatorial  radius,  r  is  the  distance  from  the  center  of  Earth,  the  angle 
9  is  the  co-latitude  and  the  angle  </>  is  the  east  longitude  measured  from  the  Prime  Meridian  at 
Greenwich,  England.  The  scalar,  P'"  ( 6 ) ,  is  a  Legrendre  function.  The  last  two  variables,  g" 

and  h"‘  are  Gaussian  coefficients.  The  sub-  and  super-scripts,  n  and  m,  represent  the  equation’s 
degree  and  order,  respectively. 

A  10th-degree  (n),  10th-order  (m)  model  using  Gaussian  coefficients  was  used.  Specifi¬ 
cally,  the  coefficients  are  extracted  from  data  calculated  by  International  Association  of  Geo¬ 
magnetism  and  Aeronomy  (1AGA).  The  1AGA  possess  the  most  current  International  Geo¬ 
magnetic  Reference  Field  (1GRF)  2000  model  that  contains  corrections  up  to  2005.  Coefficient 
units  are  nano-Tesla  (nT).  A  list  of  the  1GRF  coefficients  used  is  provided  in  Appendix  A.  The 
following  equations  were  used  to  calculate  the  three  axes  of  the  magnetic  field  in  spherical 
harmonic  coordinates.  Further  reference  can  be  found  in  [1,  p.  779]. 


Equation  (3.2)  performs  a  Gaussian  normalization  producing  Schmidt  factors  (Snjn). 
Here,  P™  =  Sn  mPn’m  relates  the  Schmidt  functions  to  Gaussian  functions  and  is  given  by  [1]  as 

(2“  3!  ){n-m)\ 


S.  ...  ss 


(2/z  —  1) ! 


( n-m)\ 


(3.2) 


( n  +  m)\ 

The  Kronecker  delta  is  8\  =  1  if  i  =  j ;  otherwise  it  is  0.  The  n  and  m  values  relate  to  the  1GRF 

coefficient  order  and  degree  indices  as  listed  in  Appendix  A.  The  Schmidt  factors  are  multi¬ 
plied  by  the  1GRF  coefficients  to  produce  values  used  in  detennining  the  individual  compo¬ 
nents  ( r,0,(f >)  of  the  magnetic  fields,  B  .  Since  recursive  relationships  are  used,  the  Gaussian 
normalization  is  computed  only  once  by 


_ n.m  _  c1  7  _  O  l~m 

S  =  b n.m&n  ’  '  =  ^ n.m"' n  • 


(3.3) 
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However,  for  computer  operations,  the  Schmidt  functions  are  further  defined  as  [1] 

(2n -l) 


*0,0  - 1 


Sn,0  1,0 


c  _  c 
° n,m  °n,m—l 


{n-m  +  \)(dlm  +1 


( n  +  m ) 


for  n  >  1 


for  m  >  1 


(3.4) 


and  the  Gaussian  functions  are  [1] 

p0,0  =  , 

Pn'n  =sin  (0)Pn~Un 

pn,m  _  COs(0)p»-l.»  _  p'um pn-2,m 

where 


(3.5) 


(3.6) 


for  «  >  1 
|  0  for  n  =  1 . 

Since  the  magnitude  of  the  magnetic  field,  5,  is  magnitude  of  the  gradient  of  V,  partial  deriva¬ 
tives  occur  when  performing  Gauss  function  calculations.  Therefore,  the  partial  derivatives  are 
[1] 

dP°'° 


do 

dPnn 

~d0 

dP"“ 


0 


sin(6>) 


dPn 


dO 


-  +  cos  (0)P 


n—\,n— 1 


(3.7) 


dO  v  7  dO 
The  magnetic  field  components  are  calculated  by  [1] 


p.pn-2,1 

=  cos  (0)- - sin  (0)P"-lm -K"'"’ 


dO 


b..=-^= m 

r  J 


dr 


r  dr 


R 


(n  +  l)X(g""!  cos(m^)  +  h”'m  sin(/n0))P"'*  (0) 

P"’m  (0) 


B A  =  — 


n= 1  \  r  J  m—0 

\  dV  1  * 


cos (mt/>)  +  hn'm  sin(m^))- 


dO 


_ Lyi 

I  Q\  < 


.  n+2 


(3.8) 


sin(<9)  dr  sin(^),“ 


=iV  A  J 


x 


Yjm[-gn-,n  sin (m</>)  +  h’hm  cos (m</>))Pn’m  (0). 


m—0 
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The  magnitude  of  the  Earth’s  magnetic  field,  B,  is  the  magnitude  of  the  three  component  vec¬ 
tors  [1] 

B  =  (3.9) 

Appendix  B  is  the  MATLAB  program  written  to  detennine  B  using  Equations  (3 .2-3. 9). 

Figure  3.1  is  a  projection  using  2000  IGRF  coefficients  corrected  to  2005  which  was 
created  using  the  Finnish  Meteorological  Institute  IGRF  Model  Applet.  [2] 

Figure  3.2  is  a  computed  contour  plot  of  the  Earth’s  magnetic  field  at  600  kilometers 
above  the  Earth’s  surface.  The  model  uses  2000  IGRF  coefficients  corrected  to  2005.  It  was 
developed  from  a  program  written  in  MATLAB  code.  As  expected,  the  two  plots  are  similar, 
thus  proving  that  the  Earth’s  magnetic  field  model  is  correct. 

The  external  magnetic  field  values  determined  by  the  MATLAB  program  were  pre- 
loaded  in  the  ACS  SIMULINK  external  magnetic  field  sub-model.  Specifically,  Figures  E.12 
and  E.  13  in  Appendix  E  represent  the  stored  magnetic  field  ephemeris  data  and  the  conversion 
from  orbit-to-body  coordinates.  Sub-model  entering  arguments  include  the  spacecraft’s  longi¬ 
tudinal  position,  Earth  spin  rate,  nodal  precession,  inclination,  and  true  anomaly. 
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Figure  3.1  Finnish  Meteorological  Institute  2005  IGRF  Earth  Magnetic  Field  Contour 
Plot  at  600  km  above  the  Earth  (2000  nano  -Tesla  contours)  [From  Ref.  2.] 
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Figure  3.2  NPSAT1  MATLAB  Generated  Earth’s  Magnetic  Field  at  600  km 
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2005  IGRF  Magnetic  Field  Total  Intensity  at  600  KM  Above  the  Earth  (2000nT  Increments) 


C.  NPSAT1  KINEMATICS  AND  DYNAMICS 

NPSAT1  uses  an  active  three-axis  magnetic  attitude  control  system.  Its  rotation 
scheme  is  a  3-2-1  sequence  and  uses  quaternions  to  express  the  direction  cosine  matrix  (DCM). 
The  3-2-1  sequence  relates  to  the  order  of  rotation  about  a  specific  axis.  Here,  3-2-1  refers  to 
the  angular  rotation  about  the  psi,  theta,  phi,  ( Euler  angles.  For  a  3-2-1  system,  Equa¬ 
tion  (3.10)  represents  the  DCM,  matrix  A,  desired  where  C  =  Cos  and  S  =  Sin.  [3,  p.  32 1] 

CdCyr  COSy/  -SO  “ 

[A321]  =  [a^]=  -C0Sy/  +  S0SOCy/  C(pCy/  +  S</>S0Sy/  S0CO  (3.10) 
|_  S<pSy/  +  C<pSOCy/  -S0Cy/  +  C<pSOSy/  C</>C0 

However,  to  prevent  singularities,  the  elements  of  the  quaternion  vector,  q  ,  are  used 
and  are  related  to  the  DCM  by  Equations  (3.11),  (3.12),  and  (3.13)  [4,  p.  27] 

q  =  [q{  q2  q3  q4] 
q,  =  StC2C3-CtS2S3 

q2=CxS2C3-SlC2S3  (3.11) 

q3=ClC2S3-SlS2C3 

q4  =  C,C2C3  -  SXS2S3 

where  “1”  is  0/2,  “2”  is  0/2 ,  and  “3”  is  y//2  .  The  DCM,  °CB ,  using  quaternion  values  in 
the  orbit-to-body  frame  reference  plane  is  [4,  p.  27] 

tfi2  “  <72  ~  <73  +  ^4  2(^2  +<?3<?4)  2(^3 -<?2<?4) 

°CB  =  Cjj  =  2[qxq2  - q2q4)  <72  “ t??  “ <?3  +  <?4  2 (^2^3  +  <^1^4 )  •  (3-12) 

2(<7i<?3  +  q2cl4  )  2  (q2q3  ~  qXq4  )  q\  -  qf  ~q2+  q} 

Thus,  for  a  standard  3-2-1  sequence,  the  angular  values  are  found  using 

( r  \ 

w  =  tan1  201  , 

C 

VC11  7 

<7  = -sin1  (C13),  (3.13) 

f  C  ' 

0  =  tan  1  — ^  . 

C 

V^33  7 
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For  a  control  system  to  adjust  a  satellite’s  attitude,  it  uses  two  other  reference  frames. 
Specifically,  these  are  the  body-to-inertial, N  of ,  and  orbit-to-inertial  frames, N aP .  For  this 
thesis,  the  inertial  frame  is  designated  as  the  Earth-bound  frame.  In  the  orbit  frame,  the  x-axis 
is  the  spacecraft  velocity  vector,  the  v-axis  follows  the  right-hand  rule  and  the  z-axis  is  nadir 
pointing.  The  angular  velocity  in  each  frame  can  be  measured  using  these  three  axes  reference 
frames.  Furthennore,  the  body-to-orbit  angular  velocity,  °of ,  can  be  computed  using 

CO  =  CO  -  CO  =  yCQx  C02  C03  J.  (3.14) 

Additionally,  the  elemental  values  of  °  coB  can  be  written  in  terms  of  the  quaternion  derivative 
as  [4,  p.26] 

0\=  2  (qxqA  +  q2q3  -  q3q2  -  q4qt ) 

a)2=2(q2q4+q3q\-qlq3-q4q2)  (3.15) 

0)3  =  2 (q3q4  +  qxq2  -  q2qx  -  q4q3 ) . 

State  space  representation  of  state  vectors  takes  Equation  (3.15)  and  develops  it  into  a 
x  =  Ax  +  Bit  format.  [4]  Specifically,  the  quaternion  derivatives  can  be  expressed  in  matrix 
format  and  in  terms  of  the  quaternion  and  angular  velocity  components  as  [4,  p.  26] 

qx  0  &>3  —co2  (Ox  qx 

q2  1  —0)3  0  (Ox  (02  q2 

=  —  .  (3.16) 

q3  2  0)2  -C0X  0  0)3  q3 

i[4  C0X  —a>2  -C03  0  q4 

Here,  'of  is  determined  from  the  spacecraft’s  initial  angular  velocity,  co0  and  feedback  from 

the  DCM.  Specifically,  N  cbB  is  found  by  multiplying  co0  by  the  center  column  vector  of  the 

DCM  orC2 .  This  now  leaves  'of  to  be  found  and  is  represented  as^OJ  Q)y  0)  J  .  The  dy¬ 
namics  function  with  Euler’s  spacecraft  moment  equations  completes  this  relationship. 

Entering  arguments  include  the  disturbance  torque,  T/,  the  control  torque,  Tc;  the  moments  of 

inertia  matrix  (MOI),  /;  the  angular  momentum,  H\  and  feedback  from  \jQ)x  coy  ox  ]  .  The 

moments  of  inertia  were  listed  in  Table  2.1.  The  angular  momentum  is  found  through  the  inner 
product  of  the  /  matrix  with  the  N 0)B  vector  or  H  =  I  ■  'of .  [4,  p.  37]  Therefore, 
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'of  =  [i]  1  [H].  However,  to  determine  the  body-to-inertial  angular  velocity,  the  total  torque 


acting  on  the  satellite  must  be  addressed. 

Three  types  of  external  disturbance  torques  are  applicable  to  the  NPSAT 1 .  These  are 
the  gravity-gradient  torque,  the  solar  torque,  and  the  aero  torque.  Discussion  regarding  the  cal¬ 
culation  of  the  disturbance  torques  is  reserved  for  a  later  section.  However,  when  addressing 
torques  within  the  ACS  dynamics  function,  torque  is  defined  as  T  =  TC+Td  .  [3,  p.  107]  The 
Euler  Moment  Equations  denote  the  individual  torque  relationships  as 

K  =IJof  +(/„-4)«®,  (3.17) 

T  =1  CO  +(l  -I  \o)  CO  . 

z  zz  z  V.KT  xx  )  x  y 

Furthermore,  the  total  torque  can  be  expressed  in  tenns  of  the  angular  momentum,  H,  the  rate 

jjVjj 

of  angular  momentum  change  in  the  inertial  frame,  - ,  and  the  body-to-inertial  angular 

dt 


velocity,  N of .  Thus,  T  can  be  written  [3] 


„  diy  H  da  H  N-B 

T  =  H= - = - +  oo  x  H 

dt  dt 

and  the  rate  of  angular  momentum  change  in  the  body  frame  is  given  by  [3] 


(3.18) 


dB  H 
dt 


=  T  — 


N-B 

00 


xH. 


Lastly,  the  angular  velocities  vector  with  respect  to  the  unit  direction  vectors 
[&>j  co2  &t]7  is  determined  by  [3] 
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where  co0  is  identified  as  the  angular  orbital  rate. 


(3.19) 


(3.20) 


Figures  E.4,  E.5,  and  E.6  display  the  methods  in  which  the  spacecraft  kinematics  and 
dynamics  were  modeled.  Specifically,  entering  arguments  to  the  dynamics  sub-model  are  the 
external  disturbance  torques  (solar,  aero,  and  gravity-gradient)  and  the  ordered  torques  which 
are  determined  by  the  torque  rod  control  law.  The  kinematics  sub-model,  Figure  E.5,  deter¬ 
mines  the  body-to-orbit  angular  velocity  based  upon  Equation  (3.14).  The  sub-model  is  a 
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closed-loop  feedback  system  designed  to  determine  the  quaternion  vector  using  the  quaternion 
derivatives  as  expressed  in  Equation  (3.16).  The  output  of  the  kinematics  sub-model  is  the  in¬ 
put  to  the  direction  cosine  matrix  sub-model.  The  DCM’s  output  is  the  entering  argument  to 
the  orbit-to-body  coordinate  conversion  process.  Additionally,  the  DCM  also  supplies  feed¬ 
back  for  the  orbit-to-body  angular  velocity  vector  which  is  used  to  determine  the  body-to- 
orbit  reference  frame  coordinates  as  expressed  in  Equation  (3. 14).  The  last  function  of  the 
DCM  is  to  provide  input  into  the  Sun  and  Eclipse  sub-model.  This  sub-model  is  shown  in  Fig¬ 
ure  E.7  and  is  designed  to  compensate  for  the  differences  exhibited  in  external  disturbance 
torques  while  the  spacecraft  is  in  eclipse. 

D.  NPSAT1  DISTURBANCE  TORQUES 

1.  Gravity-Gradient  Torque 

“Inherent  in  low-orbit  satellites  ...  an  asymmetric  body  subject  to  a  gravitational 
field  will  experience  a  torque  tending  to  align  the  axis  of  least  inertia  with  the  field  direction.” 
[3,  p.  108]  Since  NPSAT1  is  gravity-gradient  friendly,  the  z-axis  is  the  nadir-pointing  vector. 
Moreover,  in  the  calculation  of  the  gravity-gradient  torque,  the  moments  of  inertia  for  all  three 
axes  must  be  taken  into  account  using 
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This  represents  the  determination  in  body  coordinates.  The  variable  fi  is  the  Earth’s  gravita¬ 
tional  constant,  3.98601xl014  m3/s2.  Here,  R0  equals  the  Earth’s  equatorial  radius  plus  the 

spacecraft’s  height  above  the  Earth  surface,  in  meters.  While  the  gravity-gradient  torque  is  cal¬ 
culated  using  Equation  (3.20).  The  spacecraft  angular  orbital  velocity  is  determined  by 

q>  =  vV4- 

The  gravity-gradient  disturbance  torque  sub-model  is  shown  in  Figure  E.3.  The  grav¬ 
ity-gradient  torque  is  detennined  by  the  cross  product  as  expressed  in  Equation  (3.20).  Enter¬ 
ing  arguments  are  the  DCM’s  third  column  and  moment  of  spacecraft  MOI  values  loaded  from 
the  ACS  MATLAB  .m  file. 
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2.  Aerodynamic  Torque 


NPSAT 1  is  designed  to  fly  at  an  altitude  of  600  ±40  km  in  a  Low  Earth  Orbit  (LEO) 
with  an  eccentricity  of  zero.  As  explained  by  Wertz,  “altitudes  between  120  and  600  km  are 
within  the  Earth’s  thermosphere . .  .where  absorption  of  extreme  ultraviolet  radiation  from  the 
Sun  results  in  a  very  rapid  increase  in  temperature  with  altitude”.  [1,  p.  208] 

The  temperature  fluctuates  greatly  as  the  satellite  flies  through  different  solar  regions  of 
a  LEO.  Accordingly,  the  atmospheric  density  is  proportional  to  the  temperature  differences. 
Therefore,  atmospheric  drag  will  cause  pressure  upon  the  spacecraft  body  which  disturbs  its 
attitude  positioning.  Approximating  the  aerodynamic  moment,  [5]  identifies 

Ta=(cp-cm)Faero  (3-22) 

where 

K„=^pCdAV1  (3.23) 

and 

cp  =  center  of  aerodynamic  pressure, 
cm  =  center  of  mass, 

Cd  =  2.5, 

A  =  spacecraft  projected  area, 
p  =  atmospheric  density,  and 
V  =  spacecraft  velocity  =  ^Jp/Rq  , 

as  the  governing  equations  used  to  calculate  aerodynamic  disturbances. 

The  atmospheric  density  has  been  studied  and  measured  for  many  years.  For  the 
NPSAT  1  model,  values  for  p  are  those  listed  in  [5].  The  drag  coefficient  is  Cd  with  values 

normally  between  2  to  2.5.  The  NPSAT  1  model  uses  the  most  conservative  value  of  2.5  for 
simulation  purposes. 

3.  Solar  Torque 

Three  factors  regarding  solar  radiation  and  its  accompanying  torque  are  analyzed. 

These  are  spacecraft  shape,  Sun  vector  orientation  with  respect  to  the  spacecraft,  and  solar  in¬ 
tensity.  Solar  rays  come  directly  from  the  Sun  or  are  those  that  originate  from  the  Sun,  but  are 
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reflected  by  the  Earth.  Another  type  spawns  from  radiation  emitted  by  the  Earth.  Therefore, 
according  to  Wertz,  “solar  torque  on  a  spacecraft  is  dependent  upon  the  vehicle’s  geometry, 
surface  reflectivity  and  center  of  mass  location.”  [5,  p.  366] 

Modeling  solar  torque  for  the  most  conservative  approximation  is  completed  using  [5] 

Tsp  =  F(cps-cm)  (3-24) 

where 

F  =  —  As  (l  +  g)cosz  (3.25) 

c 

and 

Fs  =  solar  constant  =  1,367  w/m2  , 

c  =  speed  of  light  =  3 .0  x  1 08  m/s , 

As  =  spacecraft  illuminated  surface  area, 
cps  =  center  of  solar  pressure, 
cm  =  center  of  mass, 
q  =  reflectance  factor  (0  to  1),  and 
i  =  angle  of  incidence  to  the  Sun. 

However,  for  modeling  the  worst  scenario  possible,  the  reflectance  factor  is  set  to  1  and 
P  =  2FS  /c  is  used.  The  value  calculated  and  used  for  NPSAT1  modeling  was 

2*(4.5xl(T6)N/m2. 

The  solar  and  aerodynamic  disturbance  torques  were  modeled  as  shown  in  Figure  E.2. 
Since  the  aero  torque  is  dependent  upon  the  spacecraft’s  altitude,  a  look-up  table  was  defined 
by  values  entered  via  the  ACS  MATLAB  program.  Additionally,  the  model  takes  into  consid¬ 
eration  the  density  variation  seen  while  NPSAT1  is  in  eclipse  and  when  it  is  not.  The  magni¬ 
tude  of  the  aero  torque  is  governed  by  Equation  (3.22).  Furthennore,  the  solar  torque  is  a  direct 
calculation  based  upon  Equation  (3.24). 

E.  MAGNETIC  ATTITUDE  CONTROL 

Torque  can  be  produced  based  upon  Earth’s  magnetic  field  and  a  magnetic  moment. 
This  control  law  is  defined  by  [3] 
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where 


Tp  =  torque  acting  on  spacecraft, 

M  =  spacecraft  magnetic  moment,  and 
B  =  Earth  magnetic  field. 

A  magnetic  moment  is  created  through  the  use  of  torque  rods.  The  control  equations  are 
[3,  p.  156]  where  the  Kt  component  scalers  and  are  selected  through  experimentation 

Tcs  =  2KBhCU  + 

TCy  ~  2 ^ ycl 2CU  Kyd(D2  ^  27) 

Tc„  —  2K_q3q4  +  K _d ox . 


The  NPSAT1  attitude  control  system  builds  upon  this  theory.  Specifically,  Leonard  [6] 
identifies  a  magnetic  control  law  that  follows  the  ideal  quaternion  control  law  of 

u  =  Kay  +  Kbco.  (3.28) 

Comparing  Equation  (3.27)  with  Equation  (3.28),  a  quaternion  approximation  can  be  com¬ 
pleted  through  the  use  of  measured  magnetic  field  values  crossed  with  ephemeris  values.  Spe¬ 
cifically,  Leonard  proposes  using  an  approximation  for  y  based  upon  the  measured  and  stored 
magnetic  field  values.  [6] 

Identified  as  the  “Cross  Product  Steering  Law”  [6,  p.  2],  the  estimation  is  the  basis  for 
developing  a  state  vector,  y,  which  is  used  in  the  development  of  a  Reduced  Order  Estimator 


(ROE). 


y  =  (Bxb)/\B2\~2[qiq2  q2q4  q3q4f .  (3.29) 

The  y  state  vector  is  detennined  by  the  B  and  b  magnetometer  and  ephemeris  respective  values. 
Additionally,  the  approximation  is  directly  related  to  the  quaternion  vector. 

Moreover,  since  NPSAT1  is  gravity-gradient  friendly,  the  desired  magnetic  damping 
moment  can  be  achieved  through 


mr  = 


(3.30) 


This  provides  active  damping  to  all  axes.  Instead  of  using  Sidi’s  notation  [3],  Tc,  to  denote  the 
control  torque  required,  Equations  (3.26)  and  (3.30)  maintain  the  notation  that  is  represented 

in  [6].  Therefore,  f  and  T  represent  the  requested  torque  and  produced  torque,  respectively. 


23 


Furthermore,  “accuracies  of  the  order  of  2°  are  achievable  with  this  technique”.  [3,  p.  129] 
This  degree  of  accuracy  is  well  within  the  desired  ±10°  pointing  requirement  for  NPSAT1. 

Following  the  actuator  control  law  implementation,  the  amount  of  magnetic  moment, 
mr,  torque  produced  on  the  spacecraft  is  calculated  using  [3] 

Tp=mpx  p  (3.31) 

where  combining  the  above,  it  can  be  shown  that  T p  =  (IF,  where  the  p  matrix  used  in  Equa¬ 
tion  (3.31)  is  [6] 


[Bl+B:)  ~BsBy  -BXB; 

B2  B2  B2 

-BxBy  [b;  +  b;  )  _ByBz 

B2  B2  B2 

-BXBS  ~ByB, 

B 2  B2  B2 


(3.32) 


and  is  developed  from  data  extracted  from  the  IGRF  calculations. 

As  [6]  explains  which  cites  [7],  “The  off  diagonal  terms  of  P  have  an  average  value  of 
zero”.  [6,  p.  3],  Furthermore,  “the  diagonal  tenns,  defined  as  gx,  gy,  and  gz  vector  components 
respectively,  have  average  values  that  are  a  function  of  orbit  inclination.  Multiplying  the  com¬ 


ponents  Tr  of  by  reciprocals  of  gx,  gy,  and  gz,  respectively,  yields  an  average  value  of  Tp  equal 


to  Tr .”  [6,  p.  3]  The  values  for  gx,  gy,  and  gz  are  produced  within  the  MATLAB  code  located 

in  Appendix  B  and  C.  Specifically,  Figure  E.10  displays  the  manner  in  which  the  diagonal 
terms  are  routed  through  the  model. 

Figure  3.3  is  a  block  diagram  model  of  the  magnetic  attitude  control  system.  The 
figure  displays  the  application  of  Equations  (3.23-3.29)  with  an  addition  of  a  term  called  Bdot 
[6].  The  Bdot  term  is  used  in  the  ACS  system  following  tip-off  from  the  EELV.  Its  execution 
provides  initial  satellite  stabilization  relative  to  the  B  vector  following  launch.  Though  desired 
pointing  requirements  will  not  be  achieved  using  this  function,  a  rough  approximation  results, 
thus  allowing  the  Cross  Product  Steering  Law  to  begin  its  damping  of  the  satellite’s  pendulum 
motion. 
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Upon  tip-off,  it  is  assumed  NPSAT1  will  tumble;  however,  communication  to  the  satel¬ 
lite  is  achieved  via  the  dual  antenna  array.  Therefore,  positional  data,  specifically  longitudinal 
coordinates,  can  be  received.  The  longitudinal  coordinates  will  be  supplied  from  NORAD  to 
the  NPSAT1  ground  station  control.  These  are  transmitted  to  NPSAT1  upon  initialization. 


Figure  3.3  NPSAT1  3-Axis  Control  Using  Magnetometers  and  Torque  Rods 

[From  Ref.  4.] 

F.  MAGNETIC  TORQUE  RODS  AND  CONTROL 

NPSAT1  utilizes  three  magnetic  torque  rods  (solenoids)  produced  by  MICROCOSM. 
Specifically,  NPSAT1  was  initially  designed  to  carry  three  model  MT-30-2-CGS  torque  rods. 
Table  3.1  identifies  the  torque  rod  specifications. 

Appendix  D  is  a  cross  sectional  view  of  a  NPSAT1  torque  rod.  The  flight  torque  rods 
were  used  during  ACS  simulation  on  an  air  bearing  test  platfonn.  Tables  3. 2-3. 4  list  magnetic 
torque  rod  specifications  provided  by  MIRCROCOSM.  Each  table  represents  an  acceptance 
test  that  determines  the  amount  of  magnetic  moment  created  by  a  specific  drive  current.  The 
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tests  were  completed  using  two  current  settings,  ±10  mA  and  ±145  mA  .  Figure  3.4  is  a  pic¬ 
ture  of  a  magnetic  torque  rod  that  was  to  fly  on  NPSAT1. 

Each  rod  consists  of  two  sets  of  coils;  however,  only  one  coil  will  be  driven  at  a  time. 
Coil  activation  is  detennined  by  the  type  of  magnetic  moment  required  as  calculated  by  the 
ACS  program. 


Type 

Linear 

Dipole 

Moment 

[Am2] 

Saturation 

Moment 

[A-m2] 

Length 

[mm] 

Diameter 

[mm] 

Mass 

[kg] 

Power 

[W] 

Voltage 

[V] 

Status 

MT- 

30 

40 

351 

27 

1.135 

3.6 

25 

In  Or- 

30-2- 

bit 

CGS 

Table  3.1  NPSAT1  MICROCOSM  Magnetic  Torque  Rod  Specifications 

[After  Ref.  8.] 


Coil 

A 

Current 

-10  mA 

+  10  mA 

-145  mA 

+  145  mA 

Dipole 

+2.40  Ann2 

33.1  A-m2 

w 

IiHIiWmWBCT 

EamMism/SSm 

Coil 

B 

Current 

-10  mA 

+  10  mA 

-14  5  mA 

+  145  mA 

Dipole 

hshshi 

+2.30  A-m2 

33.0  A-m2 

Slope 

wmmmmmm  \ 

Table  3.2  NPSAT1  Torque  Rod  Magnetic  Moment  vs.  Drive  Current 

(X-axis)  [8] 


Coil 

A 

Current 

-10  mA 

+  10  mA 

-145  mA 

+  145  mA 

Dipole 

+2.25  A-m2 

iirTTtT'ITTJi 

33.0  A-m2 

Slope 

EEiESSgSCT 

nyw 

Coil 

B 

Current 

-10  mA 

+  10  mA 

-145  mA 

+  145  mA 

Dipole 

+2.3  OA-m2 

33.0  A-m2 

Table  3.3  NPSAT1  Torque  Rod  Magnetic  Moment  vs.  Drive  Current 

(Y-axis)  [8] 
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Coil 

A 

Current 

-10  mA 

+  10  mA 

-145  mA 

+  145  mA 

Dipole 

-2.40  A-m2 

+2.25  A-m2 

-33.1  A-m2 

33.0  A-m2 

Slope 

0.232  A-nr/mA 

0.232  A-m2/mA 

0.227  A-m2/mA 

0.227  A-m2/mA 

Coil 

B 

Current 

-10  mA 

+  10  mA 

-145  mA 

+  145  mA 

Dipole 

-2.35  A-m2 

+2.25  A-m2 

-33.1  A-m2 

33.0  A-m2 

Slope 

0.230  A-m2/mA 

0.230  A-m2/mA 

0.227  A-m2/mA 

0.227  A-m2/mA 

Table  3.4  NPSAT1  Torque  Rod  Magnetic  Moment  vs.  Drive  Current 

(Z-axis)  [8] 


Figure  3.4  NPSAT1  MICROCOSM  Torque  Rods  [From  Ref.  8.] 


As  previously  stated,  the  NPSAT1  attitude  control  is  commanded  by  software  drafted 
using  MATLAB  and  SIMULINK.  Figure  3.5  is  a  pictorial  representation  of  the  SIMULINK 
model  used  to  drive  the  attitude  control  system.  The  model  includes  all  disturbance  torques, 
ephemeris  data,  the  cross  product  steering  law,  a  reduced  order  estimator  feedback  loop,  and 
the  torque  rod  actuator  control  function.  Further  discussion  regarding  the  model  is  reserved  for 
Chapter  III,  Section  G  and  Chapters  IV  and  V. 
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Figure  3.5  NPSAT1  ACS  SIMULINK  Model  H  with  Disturbances  and  Ephemeris  In¬ 
put  [After  Ref.  9.] 


Specifically,  the  ACS  MATLAB  code  and  SIMULINK  models  were  converted  and 
compiled  into  ANSI  ‘C’  code  format  using  the  SIMULINK  Real  Time  Workshop  tool.  The 
ANSI  ‘C’  code  program  was  hosted  onboard  the  NPSAT1  computer.  The  computer  receives 
the  incoming  magnetometer  readings,  stores  the  ephemeris  data,  and  computes  the  necessary 
torque  commands,  as  shown  in  Figure  3.6.  As  Figure  3.6  demonstrates,  the  3-axis  magnetome¬ 
ter  readings  are  sent  to  the  onboard  micro-controller  that  converts  the  values  to  Tesla.  The 

REO  input  is  an  approximation  of  an  attitude  error  vector,  y  =  \0  6  y/\  .  The  REO  esti¬ 
mates  0  9  if/  to  form  the  complete  state  vector,  x  =  \j)  6  !//  0  9  !//J  .  It  then 

multiplies  this  by  an  optimal  gain  K  e  1RV6  to  form  the  3-axis  control  torque  u  =  -Kx.  These 
are  used  to  enter  the  SIMULINK  model  to  perform  the  ROE  calculations.  If  any  difference 
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between  the  magnetometer  readings  and  ephemeris  data  exists,  the  control  signal  is  forwarded 
via  the  microcontroller  to  the  torque  rod  driver  board.  This  driver  manages  the  current  flow  to 
the  torque  rod  windings.  The  current-induced  windings  create  a  magnetic  moment  that  reacts 
with  the  external  magnetic  field.  Moreover,  the  magnetometer  only  measures  the  external 
magnetic  field  when  the  torque  rods  are  non-operational.  This  is  accomplished  to  prevent  any 
warping  of  the  magnetic  field  from  the  torque  rod’s  dipoles,  thus  altering  the  control  torque 
commands. 
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Figure  3.6  NPSAT1  Torque  Rod  Command  Model  [After  Ref.  9] 


Figure  3.7  is  a  portion  of  the  SIMULINK  model  that  is  converted  from  a  MAT- 
LAB/SIMULINK  format  to  ANSI  ‘C’  code  using  the  SIMULINK  Real  Time  Workshop  func¬ 
tion.  This  model  is  used  to  demonstrate  the  effectiveness  of  the  ACS  on  the  air-bearing  plat¬ 
form.  The  input/output  (I/O)  device  is  a  RS232  interface  that  receives  magnetometer  readings 
and  sends  a  command  to  the  torque  rod  driver  board.  The  RS232  is  the  interface  between  the 
onboard  computer  microcontroller,  SIMULINK  model,  host  and  target  PCs,  and  torque  rods. 

Further  discussion  regarding  the  model  is  reserved  for  Chapter  V. 
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Figure  3.7  NPSAT1  ACS  Air-Bearing  SIMULINK  Test  Model 

G.  NPSAT1  MAGNETIC  ATTITUDE  CONTROL  PROGRAM  AND  MODEL 
CONSTRUCTION 

The  MATLAB  program  constructed  to  control  the  spacecraft’s  magnetic  moment  via 
torque  rods  was  designed  in  three  sections. 

First,  as  discussed  in  Chapter  III,  Section  B,  is  the  Earth’s  Magnetic  Field  program. 
This  program  was  designed  to  calculate  the  ephemeris  data  required  by  the  ACS  plant. 

Second  is  the  establishment  of  the  state  space  matrices  and  vectors  required  by  the  re¬ 
duced  order  estimator,  actuator  control  law,  Bdot  control  law,  cross  product  steering  control 
law,  disturbance  torques,  and  spacecraft  kinematics  and  dynamics. 

Last  is  the  development  of  the  model  for  simulation  and  code  generation  purposes. 
Program  sections  one  and  two  were  drafted  in  MATLAB  code.  Section  three  was  developed 
using  SIMULINK  modeling  software  using  the  generic  block  library  and  controls  toolbox  fea¬ 
ture. 

Appendix  C  and  F  are  the  MATLAB  program  and  SIMULINK  model  developed  by 
Leonard.  Leonard’s  work  is  labeled  Program  L  and  Model  L.  Appendix  B  and  F  contain  the 
program,  Program  H,  and  model,  Model  H,  developed  by  the  author. 

Two  of  the  three  thesis  objectives  were  to  determine  the  validity  of  Leonard’s  design 
process  through  an  independent  drafting  of  the  ACS  program  and  model.  This  objective  was 
met.  Figures  3.8  and  3.9  display  the  contour  plots  for  each  magnetic  model  of  the  Earth.  As 
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previously  discussed  in  Chapter  II,  the  results  were  compared  to  a  model  developed  by  the 
Finnish  Meteorological  Institute.  Moreover,  the  models  compared  well  to  illustrations  in  [1], 
Constants,  gains,  moments  of  inertias,  initialization  values,  and  variable  declarations  were  kept 
the  same  in  Program  H  as  declared  in  Program  L.  This  was  accomplished  to  maintain  continu¬ 
ity  because  of  the  complex  nature  of  the  computer  code.  However,  there  were  differences  in  the 
drafting  of  the  program. 

Program  H’s  magnetic  field  model  is  taken  to  the  10th  degree  and  10th  order,  vice  Leo¬ 
nard’s  calculation  of  ephemeris  data  using  8th-order  values.  Moreover,  Program  H  corrects  the 
IGRF  data  to  2005  whereas  Program  L  does  not.  Upon  launch,  the  ephemeris  data  loaded  into 
the  spacecraft’s  computer  will  require  2005-2010  IGRF  calculations.  Furthermore,  as 
NPSAT1  ages,  the  ACS  program  will  require  periodic  updates  to  keep  the  ephemeris  data  cur¬ 
rent  and  corrected. 

IGRF  2000-2005  data  used  in  Program  H  was  downloaded  from  a  database  owned  and 
updated  by  the  National  Oceanic  and  Atmospheric  Administration  (NOAA).  [10]  The  database 
is  managed  by  the  NOAA  National  Geophysical  Data  Center  (NGDC). 


IGRF  Intensity  (25— >65  uT) 


Figure  3.8  Program  L  IGRF  2000  Uncorrected  Earth  Magnetic  Field  Contour  Plot 
(8th  order,  8th  degree)  at  600  km  Above  the  Earth  [From  Ref.  9.] 
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2005  IGRF  Magnetic  Field  Total  Intensity  at  600  KM  Above  the  Earth  (2000nT  Increments) 


Figure  3.9  Program  H  IGRF  2000  Corrected  Earth  Magnetic  Field  Contour  Plot  (10th 

order,  10th  degree)  at  600  km  Above  the  Earth 

The  second  difference  is  regarding  the  spacecraft  MOI  values.  For  test  and  simulation 
purposes,  the  MOI  values  used  in  Program  FI  were  those  identified  by  Leonard.  However,  as 
the  satillite  is  manufactured  and  assembled,  the  moments  of  inertia  will  change  and  will  require 
updating.  Furthermore,  once  the  MOI  values  are  updated,  additional  computer  and  air-bearing 
simulations  will  be  required  to  enhance  the  NPSAT1  team’s  confidence  in  the  ACS.  Since 
NPSAT1  is  symmetric  and  designed  to  be  gravity-gradient  friendly,  simulation  results  should 
not  change  to  the  point  of  instability;  however,  good  engineering  practice  dictates  conserva¬ 
tiveness  and  rigorous  testing. 

NPSAT1  ACS  Model  L  and  H  are  essentially  identical.  Both  models  are  presented  in 
Appendices  E  and  F,  respectively.  Model  L  is  Leonard’s  original  construction,  while 
Appendix  E  shows  the  section-by-section  representation.  Model  H  was  constructed  based 
upon  the  mathematical  theory  discussed  in  Chapter  III,  Sections  B-F.  One  difference  between 
Model  L  and  H  is  that  each  model  uses  the  notations  developed  in  their  respective  MATLAB 
M-files.  The  SIMULINK  model  validation  was  completed  based  upon  the  empirical  relation¬ 
ships  discussed  in  Chapter  III.  Each  model’s  sub-sections  were  built  separately  and  compared 

to  Model  L  to  ensure  Leonard  was  following  the  control  theory  he  cited.  No  problems  were 
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discovered  in  the  inspection.  All  of  Leonard’s  model  relationships  corresponded  with  ACS 
control  theory  and  application  to  that  presented  in  [6]. 

In  summary,  this  chapter  identified  and  explained  all  of  the  empirical  relationships  used 
to  design  the  NPSAT1  attitude  control  system.  The  relationships  discussed  were  used  to  build  a 
model  used  to  mimic  the  NPSAT1  attitude  positioning.  Furthennore,  once  the  mathematical 
relationships  were  established,  the  models  and  programs  developed  in  this  thesis  were  com¬ 
pared  against  Leonard’s  work.  No  substantial  issues  were  found.  Specifically,  the  MATLAB 
program  used  as  to  determine  the  ephemeris  magnetic  field  values  and  ACS  model  entering 
arguments  computed  correctly.  Additionally,  the  empirical  inspection  of  Leonard’s  model 
found  that  his  structure  was  sufficient  and  followed  ACS  control  theory.  The  next  step  was  to 
transition  from  a  computer  modeling  simulation  phase  to  a  hardware  testing  phase.  However, 
to  do  so  required  the  establishment  of  a  test  platform  and  laboratory  to  conduct  hardware  tests. 
Discussion  of  the  laboratory  creation  is  discussed  in  Chapter  IV. 
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IV.  NPSAT1  AIR-BEARING  LABORATORY  ESTABLISHMENT 

AND  MAGNETIC  FIELD  SURVEYS 


A.  OVERVIEW 

This  chapter  discusses  the  preliminary  steps  taken  to  commence  the  NPSAT1  ACS 
hardware-in-the-loop  testing  that  was  designed  to  demonstrate  the  effectiveness  of  the  ACS 
program.  However,  to  reach  this  hardware-in-the-loop  testing  objective,  a  test-bed  was 
needed.  Therefore,  the  establishment  of  an  experimental  laboratory  designed  to  use  an  air¬ 
bearing  platform  to  prove  the  ACS  program’s  validity  was  required. 

The  creation  of  the  test  setting  required  three  goals  to  be  accomplished.  These  were  to 
find  a  suitable  laboratory  that  would  1)  provide  an  environment  without  circulating  air,  2)  pos¬ 
sess  a  foundation  level  that  was  strong  enough  to  affix  the  air-bearing  platform  to,  and  3) 
prove  to  have  a  measureable  static  magnetic  field.  Based  on  the  aforementioned  criteria,  the 
air-bearing  platform  was  placed  in  the  SSAG  Satellite  Clean  Room  located  in  Bullard  Hall  at 
NPS. 

The  laboratory  floor  was  covered  in  electrically-safe  rubber  matting.  The  matting  pro¬ 
vided  a  good  surface  to  draw  a  reference  grid  upon  as  well  as  providing  a  suitable  covering  for 
the  air-bearing  platfonn  to  be  set  upon. 

Section  B  of  this  chapter  discusses  in  more  detail  how  the  laboratory’s  grid  reference 
system  was  created  and  how  its  magnetic  signature  was  recorded. 

B.  LABORATORY  ESTABLISHMENT 

The  NPSAT1  air-bearing  laboratory  was  established  based  upon  preliminary 
research  performed  by  Schmidt.  [11]  Specifically,  Schmidt  built  an  air-bearing  test  platform  to 
simulate  the  NPSAT1  ACS.  The  computer-generated  depiction  of  Schmidt’s  air-bearing  is 
shown  in  Figure  4. 1 .  The  test  platform  installed  in  the  new  laboratory  is  shown  in  Figures  4.2 
and  4.3.  However,  Schmidt  did  not  perform  any  “hardware-in-the-loop”  tests. 
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Figure  4.1  NPSAT1  Air-Bearing  Test  Platform  Computer-Generated  View 
[Provided  by  Mr.  Dan  Sakoda,  NPS  SSAG] 
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Figure  4.2  NPSAT1  Air-Bearing  Test  Platforms  with  A,T,Z  Torque  Rods,  Ballast,  and 

Batteries  Installed 
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Figure  4.3  NPSAT1  Air-Bearing  Test  Platforms  with  CPU,  Torque  Rod  Control 
Board,  Magnetometer,  and  Power  Distribution  Box  Set  for  Preliminary  Tests 
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Reference  [11]  contained  a  preliminary  magnetic  signature  survey  of  the  laboratory 
where  the  air-bearing  was  to  be  housed.  However,  building  renovations  following  completion 
of  the  survey  and  prior  to  commencement  of  this  thesis  forced  the  movement  of  the  air-bearing 
platfonn  to  a  new  location.  Therefore,  new  and  more  robust  laboratory  magnetic  surveys  were 
completed  using  magnetometers  and  MATLAB  programs  vice  the  MAPLE  software  program 
used  in  [1 1], 

The  air-bearing  platform  and  associated  hardware  are  pictured  in  Figures  4.2  and  4.3. 
The  magnetic  surveys  commenced  with  the  establishment  of  a  grid  reference  system.  The  grid 
reference  was  created  in  a  matrix  form,  facilitating  an  efficient  method  to  measure  and  save 
magnetometer  readings  into  MATLAB  variables. 

The  reference  system  was  composed  of  a  5  x  7  grid.  Each  block  of  the  grid  was  0.5 
meters  long  by  0.5  meters  wide.  The  grid  is  referenced  by  i  and  j  index  values.  These  are  the 
corner  points  of  the  grid.  Starting  in  the  lower  left  corner,  the  i  index  values  start  at  one  and 
increase  to  eight.  The  j  index  values  commence  at  one  and  increase  to  six.  Additionally,  the 
grid’s  area  above  the  floor  was  considered.  Four  planes  were  selected  and  noted  as  the  k  index. 
The  levels  measured  were  0  mm,  977  mm,  1250  mm,  and  1517  mm  above  the  floor.  The  floor 
was  considered  to  be  located  at  sea  level.  The  i,j,  k  matrix  was  a  rectangular  Cartesian  grid. 
Figure  4.4  represents  the  grid’s  orientation.  The  center  circle  identifies  the  air-bearing  plat¬ 
form’s  location  within  the  grid. 

Three  discrete  magnetic  surveys  were  completed  using  a  Honeywell  HMR2300  magne¬ 
tometer.  “The  Honeywell  HMR2300  is  a  three-axis  smart  digital  magnetometer  [designed]  to 
detect  the  strength  and  direction  of  an  incident  magnetic  field.  The  three. . .  Honeywell  mag¬ 
neto-resistive  sensors  are  oriented  in  orthogonal  directions  to  measure  the  X,  Y,  and  Z  vector 
components  of  a  magnetic  field.”  [12,  p.  1]  Figure  4.5  displays  the  magnetometer  used  during 
the  surveys. 

Data  was  collected  using  a  DOS  program  supplied  by  Honeywell.  Magnetometer 
specifications  were  set  using  this  program.  Table  4. 1  lists  the  settings  used  during  the  surveys 
and  as  described  in  [12].  These  settings  were  used  throughout  the  air-bearing  tests. 

The  magnetometer  was  secured  to  a  non-ferrous  tripod  centered  at  each  comer  of  the 
reference  grid.  Measurements  were  taken  at  discrete  points  and  recorded  for  10  to  15  seconds. 
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Figure  4.4  NPSAT1  Air-Bearing  Reference  Grid 


Figure  4.5  Honeywell  HMR2300  3-Axis  Magnetometer 

40 


Average 

Readings 

Baud 

Rate 

Format 

ID 

Output 

Plot 

Scale 

Re¬ 

enter 

Sample 

Rate 

Set/ 

Reset 

Zero 
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ASCII 

01 
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Off 
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On 

Off 

Table  4.1  Honeywell  HMR2300  Magnetometer  Settings 


The  magnetometer  three-axis  orientation  was  different  than  the  laboratory  reference  grid. 
Therefore,  conversion  from  the  magnetometer  axes  to  Cartesian  axes  was  accomplished  using 
the  following  relationship 


[Xc  7C  zc]r  =[Y„  -Zu  -Xj.  (4.1) 

The  subscripts  C  and  M  represent  the  Cartesian  and  magnetometer  axes,  respectively. 

The  HMR2300  magnetometer  displays  four  readings.  The  first  three  are  the  X,  Y,  and  Z 
field  components.  The  fourth  element  is  magnetic  North.  The  latter  term  was  not  needed; 
therefore,  it  was  disregarded  and  extracted  from  field  measurements. 

The  magnetic  field  components  are  measured  in  counts.  Each  measurement  can  be 
converted  to  either  Gauss  or  to  Tesla  units.  One  Gauss  unit  equals  15,000  counts.  Conversion 
to  Tesla  was  completed  using 


(X  counts) 


1  Gauss 


15,000  Counts 


1  Tesla 


=(z)(i. 


5xl0“8  Tesla 


(4.2) 


jyl 0,000  Gauss 

The  ACS  IGRF  ephemeris  data  was  calculated  in  Tesla  units;  therefore,  the  air-bearing  labora¬ 
tory  magnetic  field  calculations  used  the  same  units. 

The  air-bearing  magnetometer  was  compared  against  a  calibrated  HMR2300  unit  prior 
to  measurement  to  ensure  for  correct  readings.  Table  4.2  lists  the  differences  between  the 


magnetometer  used  for  magnetic  field  measurement  and  the  calibrated  unit.  Table  4.2  values 
are  displayed  in  Counts. 


X 

Y 

Z 

Field 

Magnetometer 

0.1315 

0.2189 

-0.3682 

Calibration 

Magnetometer 

0.1740 

0.1987 

-0.3718 

Delta 

0.0425 

-0.0202 

-0.0036 

Table  4.2  Honeywell  HMR2300  Calibration  (Counts) 
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Each  of  the  three  fields  yielded  a  contour  and  gradient  vector  field  representation. 
Figures  4.6-4. 17  show  the  magnetic  field  for  the  entire  air-bearing  reference  grid.  The  X and  Y 
axes  are  measured  in  0.5  meter  increments  while  the  Z  axis  is  measured  in  Tesla. 

Figures  4.6-4. 8  are  representative  of  the  manner  in  which  all  of  the  measurements  were 
displayed.  Colored  contour  plots  allows  ones  to  visualize  how  the  magnetic  field  changes  in  a 
finite  area.  Focus  should  be  applied  to  the  points  where  the  contour  plot’s  grid  points  intersect. 
The  intersection  points  correspond  with  the  discrete  points  measured  within  the  grid  reference 
system.  The  changing  colors  represent  the  gradient  field  changes.  Figure  4.7  is  a  characteriza¬ 
tion  that  should  be  used  with  Figure  4.6.  Instead  of  attempting  to  read  the  magnetic  field’s 
magnitude  on  the  vertical  axis  of  Figure  4.6,  interpretation  of  the  field’s  strength  is  more  read¬ 
ily  available  from  Figure  4.7.  Additionally,  Figure  4.8  was  designed  to  display  the  manner  in 
which  the  magnetic  field  travels.  This  type  of  representation  was  used  in  all  three  magnetic 
field  surveys. 

The  second  and  third  surveys  were  completed  based  on  the  results  received  from  the 
first  survey.  As  exhibited  by  Figures  4.6-4.17,  the  magnetic  field  was  warped.  This  was  an 
expected  condition  due  to  the  large  amounts  of  metal  surrounding  the  laboratory  and  air¬ 
bearing  test  station.  Specifically,  the  laboratory  floor,  walls,  and  ceiling  contain  metal  re-bar 
rods  used  during  building  construction.  Additionally,  to  facilitate  laboratory  wiring,  channels 
are  set  in  the  floor  that  were  covered  by  diamond-patterned  metal  plating.  Fastly,  toolboxes, 
metal  support  beams,  and  NPSAT1  test  equipment  were  located  in  the  laboratory.  Though  it 
would  be  desirable  to  have  all  of  this  material  removed,  it  was  deemed  impractical. 
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SURVEY  1 :  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL 
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Figure  4.6  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

Floor  Level 


SURVEY  1 :  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL 
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Figure  4.7  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

Floor  Level 
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SURVEY  1 :  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL 
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Figure  4.8  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Vector  Plot  at 

Floor  Level 


SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.9  NPSAT1  AirBearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

977  mm  Above  Floor  Level 
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SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.10  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

977  mm  Above  Floor  Level 

SURVEY  1 :  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE  FLOOR  LEVEL 


Figure  4.11  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Vector  Plot  at 

977  mm  Above  Floor  Level 
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SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE  FLOOR  LEVEL 


X  10'6 


Figure  4.12  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

1250  mm  Above  Floor  Level 


SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.13  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

1250  mm  Above  Floor  Level 
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SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE  FLOOR  LEVEL 


Figure  4.14  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Vector  Plot  at 

1250  mm  Above  Floor  Level 


Figure  4.15  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

1517  mm  Above  Floor  Level 
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SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.16  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Contour  Plot  at 

1577  mm  above  Floor  Level 


SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE  FLOOR  LEVEL 


Figure  4.17  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  1  Vector  Plot  at 

1517  mm  Above  Floor  Level 
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The  magnetic  field  surveys  were  designed  to  understand  what  type  of  magnetic  field 
resides  within  the  laboratory.  The  initial  survey  proved  that  the  field  was  warped  and  more 
refined  measurements  were  required.  This  was  shown  by  the  severe  change  in  the  magnetic 
field  at  the  Y equals  one  to  three  levels.  The  large  change  in  field  strength  corresponds  with  the 
location  of  metal  grating  on  the  laboratory’s  floor.  Thus,  the  second  and  third  magnetic  field 
signature  surveys  were  initiated. 

Figures  4.18-4.26  are  the  results  from  the  second  survey.  The  second  survey  reduced 
the  grid  measurements  from  5x7  to  4x4 .  Moreover,  the  second  survey  disregarded  floor- 
level  measurements  and  concentrated  the  measurements  at  the  977  mm,  1250  mm,  and  1517 
mm  Z  axis  levels.  Additionally,  Figures  4.18-4.26  illustrate  that  the  magnetic  field  was  less 
disturbed  and  remained  fairly  static  in  the  vicinity  immediately  surrounding  the  air-bearing. 


Figure  4.18  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

977  mm  Above  Floor  Level 
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SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  977  mm  ABOVE  FLOOR  LEVEL 


x  105 


Figure  4.19  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

977  mm  Above  Floor  Level 


SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  977  mm  ABOVE  FLOOR  LEVEL 


Figure  4.20  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Vector  Plot  at 

977  mm  Above  Floor  Level 
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SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.21  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

1250  mm  Above  Floor  Level 


SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  1250  mm  ABOVE  FLOOR  LEVEL 


Figure  4.22  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

1250  mm  Above  Floor  Level 
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SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  1250  mm  ABOVE  FLOOR  LEVEL 


Figure  4.23  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Vector  Plot  at 

1250  mm  Above  Floor  Level 


Y  GRID  COORDINATE:  j2  to  j5  2  2  X  GRID  COORDINATE:  i2  to  i6 

Figure  4.24  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

1517  mm  Above  Floor  Level 
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SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  1517  mm  ABOVE  FLOOR  LEVEL 
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Figure  4.25  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Contour  Plot  at 

1517  mm  Above  Floor  Level 


SURVEY  2:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  1517  mm  ABOVE  FLOOR  LEVEL 


Figure  4.26  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  2  Vector  Plot  at 

1517  mm  Above  Floor  Level 
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The  third  air-bearing  laboratory  magnetic  field  survey  was  conducted  with  the  magne¬ 
tometer  fixed  to  the  test  platform.  Three  sets  of  measurements  were  recorded.  Each  set  rotated 
the  air-bearing  360  degrees  about  the  Z  axis.  The  Z-axis  rotation  angle  was  noted  as  the  angle 
(p.  Additionally,  measurements  were  taken  with  respect  to  three  inclination  angles  referenced 
from  the  Z  axis.  The  angle  9  was  inclined  75°,  90°,  and  105°.  These  inclination  values  were 
labeled  Tier  1,  Tier  2,  and  Tier  3,  respectively. 

Measurements  were  taken  for  20  seconds  vice  the  10-second  increments  used  during 
surveys  one  and  two.  The  MATLAB  program,  described  in  Appendix  1,  used  to  generate  a  rep¬ 
resentative  magnetic  field  model,  averaged  280  of  the  collected  data  points.  Also,  the  data 
point’s  locations  were  converted  from  spherical  coordinates  to  rectangular  coordinates.  The 
field’s  direction  and  magnitude  were  calculated  from  the  mean  values.  Figures  4.27^1.35  dis¬ 
play  the  survey’s  results.  Specifically,  Figures  4.27-4.29  model  the  field’s  direction.  Three  dif¬ 
ferent  aspects  are  shown  to  illustrate  the  field’s  travel.  This  coincides  with  the  field  direction 
found  in  surveys  one  and  two.  Figures  4.30-4.35  show  each  tier’s  normalized  and  Tesla  field 
strength.  Figure  4.36  combines  the  magnitudes  of  all  three  tiers. 

NPSAT1  AIR-BEARING  MAGNETIC  FIELD  DIRECTION:  SURVEY  3,  TIERS  1,2,3 


Figure  4.27  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tiers  1,  2,  3 

Field  Direction:  View  No.  1 
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Normalized  Magnetic  Field  Direction 


NPSAT1  AIR-BEARING  MAGNETIC  FIELD  DIRECTION:  SURVEY  3,  TIERS  1 ,2,3 


Figure  4.28  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tiers  1,  2,  3 

Field  Direction:  View  No.  2 


NPSAT1  AIR-BEARING  MAGNETIC  FIELD  DIRECTION:  SURVEY  3,  TIERS  1,2,3 


Figure  4.29  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tiers  1,  2,  3 

Field  Direction:  View  No.  3 
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NPSAT1  AIR-BEARING  NORMALIZED  MAGNETIC  FIELD  MAGNITUDE:  SURVEY  3, TIER  1 


0.4 


-0.4  -0.3 


Figure  4.30  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  1 

Normalized  Field  Strength 


NPSAT1  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE:  SURVEY  3, TIER  1 


Figure  4.31  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  1 

Field  Magnitude  (Tesla) 
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NPSAT1  AIR-BEARING  NORMALIZED  MAGNETIC  FIELD  MAGNITUDE:  SURVEY  3. TIER  2 


Figure  4.32  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  2  Normal¬ 
ized  Field  Strength 


NPSAT1  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE:  SURYVEY  3, TIER  2 


Figure  4.33  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  2 

Field  Magnitude  (Tesla) 
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Magnetic  Field  Magnitude  (Tesla) 


NPSAT1  AIR-BEARING  NORMALIZED  MAGNETIC  FIELD:  SURVEY  3, TIER  3 


Figure  4.34  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  3  Normal¬ 
ized  Field  Strength 

NPSAT1  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE:  SURVEY  3, TIER  3 


Figure  4.35  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  3 

Field  Magnitude  (Tesla) 
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NPSAT1  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE:  SURYVEY  3, TIER  3 


Figure  4.36  NPSAT1  Air-Bearing  Laboratory  Magnetic  Field  Survey  3:  Tier  3 

Field  Magnitude  (Tesla) 

Table  4.3  lists  the  magnetic  field’s  magnitude  (Tesla)  at  each  tier  level  and  sample 
point.  Each  sample  point  represents  30  degrees  of  the  rotation  angle  9  about  the  air-bearing 
platform’s  Z  axis.  The  table  was  used  as  the  air-bearing’s  ephemeris  data  used  in  the  SIMU- 
LINK  model  and  ACS  air-bearing  experiments. 

Additional  equipment  mounted  on  the  air-bearing  test  platform  will  include  a  single 
board  computer,  a  power  supply,  a  torque  driver  control  board,  a  wireless  remote  router,  and  all 
associated  wiring.  Figure  4.37  displays  the  additional  components.  Once  preliminary  experi¬ 
ments  are  completed,  a  laser  tracking  system,  cameras,  and  recording  equipment  will  be  in¬ 
stalled  to  allow  for  a  more  in-depth  analysis  of  the  air-bearing’s  attitude  movement.  These 
have  not  been  installed;  therefore,  the  equipment  is  not  shown. 

The  single  board  computer  was  designed  to  store  the  SIMULINK  model  and 
support  the  ACS  computing  functions.  Additionally,  the  computer  was  the  interface  between 
the  ACS  and  the  torque  driver  board.  The  torque  driver  board  is  a  solid-state  component  de¬ 
signed  to  control  the  amount  of  current  applied  to  the  torque  rod  coils. 
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Rotation  angle, 

0 ,  (degrees) 

Tier  1 

75°  inclination 

Tier  2 

90°  inclination 

Tier  3 

105°  inclination 

000 

1.02E-04 

1.02E-04 

1 .02E-04 

030 

1.02E-04 

1.01E-04 

1 .02E-04 

060 

1.01E-04 

1.00E-04 

1.0  IE-04 

090 

9.97E-05 

9.96E-05 

1 .00E-04 

120 

9.86E-05 

9.89E-05 

9.98E-05 

150 

9.86E-05 

9.92E-05 

1 .00E-04 

180 

9.93E-05 

1.01E-04 

1.01E-04 

210 

1.00E-04 

1.02E-04 

1 .03E-04 

240 

1.01E-04 

1.03E-04 

1 .03E-04 

270 

1.01E-04 

1.03E-04 

1 .04E-04 

300 

1.01E-04 

1.02E-04 

1 .03E-04 

330 

1.01E-04 

1.02E-04 

1 .04E-04 

Table  4.3  NPSAT1  Air-Bearing  Magnetic  Field  Magnitude  Calculations 

Survey  3:  Tiers  1,  2,  3 

The  power  supply  provides  all  energy  needed  by  the  torque  rods,  computer,  wireless 
router,  and  torque  driver  board. 


In  summary,  this  chapter  identified  the  methods  used  to  establish  a  laboratory  designed 
to  test  the  NPSAT1  ACS.  Specifically,  a  reference  system  was  created  that  allowed  for  a  sys¬ 
tematic  measurement  of  the  laboratory’s  magnetic  field.  The  laboratory  magnetic  field  meas¬ 
urements  were  completed  in  three  stages.  Each  stage  narrowed  the  scope  of  investigation 
which  allows  one  to  visualize  the  field’s  strength,  movement,  and  stability. 

A  discussion  regarding  the  tests  performed  using  the  air-bearing,  its  components  and 
the  ACS  is  presented  in  the  next  chapter. 
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Figure  4.37  NPSAT1  Air-Bearing  Test  Platform  Equipage  (Computer,  Torque  Driver 

Board,  Magnetometer,  and  Power  Supply) 
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V.  NPSATl  MAGNETIC  ATTITUDE  CONTROL  SYSTEM  AIR¬ 
BEARING  TESTS 

A.  NPSAT 1  MAGNETIC  ATTITUDE  CONTROL  SYSTEM  HARD  WARE-IN-THE- 
LOOP  TEST  OVERVIEW 

Satisfactory  hardware-in-the-loop  testing  of  the  NPSATl  ACS  program  and  determina¬ 
tion  of  interfaces  function  between  the  computer  hardware,  power  supplies,  and  magnetic 
torque  rods  was  the  ultimate  goal  of  this  thesis.  Now,  with  a  laboratory  established,  hardware- 
in-the-loop  were  ready  to  commence.  This  chapter  discusses  the  tests  performed,  results 
found,  and  solutions  initiated  during  these  initial  examinations. 

B.  NPSATl  MAGNETIC  ATTITUDE  CONTROL  SYSTEM  AIR-BEARING  TEST 
PLAN 

The  major  goal  of  this  thesis  was  to  develop  and  execute  tests  designed  to  exercise  the 
NPSATl  magnetic  attitude  control  system.  The  test  plan  was  developed  to  identify  hardware 
and  software  problems.  Testing  was  conducted  in  three  stages.  The  tests  are  presented  below 
with  amplification  and  discussion  given  in  separate  sections. 

The  first  test  completed  was  a  computer  simulation  using  MATLAB  and  SIMULINK. 
Specifically,  the  reduced  order  estimator  was  separated  from  the  overall  SIMULINK  ACS 
computer  model.  The  REO  estimator  was  tested  using  magnetic  field  values  as  discussed  in 
Chapter  IV. 

The  second  stage  was  to  convert  the  ACS  MATLAB  program  and  SIMULINK  model 
into  ANSI  ‘C’  code.  This  was  accomplished  using  the  embedded  SIMULINK  feature  known 
as  Real  Time  Workshop. 

Air-bearing  tests  commenced  once  the  ACS  model  was  successfully  converted  to  ANSI 
‘C’  code.  Preliminary  experiments  included  input/output  tests,  solenoid  current  tests,  analog- 
to-digital  (A/D)  conversion  tests,  torque  rod  magnetic  field  production,  and  induced  dipole 
moment  tests.  These  were  completed  using  bench  support  test  equipment. 

A  fourth  battery  of  tests  was  scheduled;  however,  these  were  not  completed.  The  ex¬ 
periments  were  not  completed  due  to  the  software  and  hardware  faults  discovered  during  the 
third  battery  of  air-bearing  tests.  Specifically,  during  the  input/output  tests  utilizing  Real  Time 

Workshop,  XPC  Target  and  XPC  Host,  magnetometer  measurements  were  not  being  properly 
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relayed  to  the  ACS  SIMULINK  model.  Additionally,  hardware  faults  residing  in  the  torque 
driver  circuit  board  were  discovered  during  the  solenoid  current  tests  and  analog-to-digital 
conversion  tests.  Both  the  software  and  hardware  design  issues  had  to  be  corrected  for  air¬ 
bearing  tests  to  resume.  These  two  issues  are  being  examined  and  corrected  by  NPSAT1  pro¬ 
ject  engineers. 


C.  NPSAT1  MAGNETIC  ACS  PLANT  STATIC  MODELING 

The  air-bearing  control  system  consists  of  the  reduced  order  estimator,  cross  product 
steering  law,  torque  control  law,  Bdot  control  law,  magnetic  field  ephemeris  data,  and  meas¬ 
ured  external  magnetic  field  values.  The  air-bearing  model  does  not  contain  any  testing  regard¬ 
ing  the  disturbance  torques  because  the  actual  space  environment  cannot  be  simulated.  How¬ 
ever,  follow-on  research  to  the  preliminary  experiments  includes  the  installation  of  Helmholtz 
Coils.  This  process  will  allow  research  using  a  magnetic  field  that  can  be  altered  to  resemble 
the  space  environment. 

The  first  step  in  the  testing  process  was  to  model  the  air-bearing’s  desired  behavior. 
Ideally,  the  air-bearing  would  exhibit  a  damped  oscillation  motion  as  displayed  in  Figure  5.1. 
This  motion  was  modeled  using  the  air-bearing  simulation  model  depicted  in  Figure  5.2.  The 
air-bearing  model  is  separated  into  five  sections.  The  green  sections  represent  the  solenoids 
and  magnetometer.  The  blue  blocks  depict  the  torque-rod  driver  control  board.  The  yellow 
blocks  represent  the  SIMULINK  ACS  model  converted  to  ‘ANSI’  C  code.  The  orange  are 
blocks  used  to  extract  data  for  analysis.  The  white  blocks  are  portions  of  the  model  used  to 
simulate  the  dynamics  and  kinematics  of  the  air-bearing.  The  model  was  provided  by  Leonard 
for  research  purposes.  Each  of  the  sub-model’s  development  was  based  upon  the  mathematical 
principles  discussed  in  Chapter  III.  The  model’s  parameters  were  changed  to  reflect  the  air¬ 
bearing’s  characteristics  and  to  use  the  magnetic  field  survey  data  previously  collected  and  dis¬ 
cussed  in  Chapter  IV. 
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Euler  Angle  Decay 


Figure  5.1  NPSAT1  ACS  Air-Bearing  Simulation  Euler  Angle  Decay 

NPSATl’s  mission  is  to  remain  on  orbit  at  an  altitude  of  600 ± 40  km.  While  on  orbit, 
the  ACS  was  designed  to  have  the  spacecraft’s  attitude  movements  resemble  those  of  a  pendu¬ 
lum.  Thus,  the  interaction  between  the  external  magnetic  field  and  the  generated  magnetic  field 
is  such  that  the  spacecraft  uses  the  torque  rods  to  generate  a  dipole  that  aligns  itself  with  the 
external  magnetic  field.  However,  it  will  do  so  slowly  and  in  a  damped  pendulum  motion. 

Additionally,  the  solenoid  dipole  moments  and  calculated  torque  should  exhibit  a 
damping  behavior  as  those  shown  in  Figures  5.3  and  5.4.  The  torque  produced  was  limited  to 
+33  mA;  therefore,  saturation  occured  at  the  beginning  of  the  cycle.  The  torque  decayed  as  the 
air-bearing  corrects  its  attitude  during  the  dipole  alignment  process.  This  behavior  is  similar  to 
the  oscillating  decay  of  the  Euler  angles  measurements  and  requested  dipole  moments  as 
shown  in  Figures  5.1  and  5.3 
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antuoj.  pH^smbsy^- 


Figure  5.2  NPSAT1  Air-Bearing  Simulation  Model  [Provided  by  Prof.  Barry  S.  Leo¬ 
nard,  NPS  SSAG] 
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Figure  5.3  NPSAT1  ACS  Air-Bearing  Requested  Dipole  Moment  Simulation 
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Figure  5.4  NPSAT1  ACS  Air-Bearing  Torque  Rod  Ouput  Decay  Simulation 
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The  abridged  static  version  of  the  air-bearing  ACS  model  is  shown  in  Figure  5.5.  Its 
purpose  was  to  establish  that  single  magnetic  field  values  could  be  entered  into  the  model  to 
produce  a  torque  based  upon  the  collected  laboratory  ephemeris  data. 

NPSAT1  MAGNETIC  3-AXIS  ACS  REDUCED  ORDER  ESTIMATOR  AIR-BEARING  SIMULATION  MODEL 


Derivative!  kd2 


Figure  5.5  NPSAT1  Magnetic  ACS  Air-bearing  Static  Plant  Model 


Static  magnetometer  and  external  magnetic  values  were  entered  into  the  simulation 

model.  The  resultant  dipole  moment  was  on  the  order  of  106  .  This  was  an  expected  condition 
since  the  values  entered  were  constant,  thus  the  plant  attempted  to  apply  a  large  dipole  moment 
to  align  the  air-bearing  model  to  the  desired  frame. 

D.  NPSAT1  ATTITUDE  CONTROL  SYSTEM  MODEL  CONVERSION  TO  ANSI 

‘C’  CODE  USING  MATLAB  REAL  TIME  WORKSHOP 

The  advantage  of  modeling  the  ACS  using  MATLAB  and  SIMULINK  software  was 
that  it  can  also  be  used  to  convert  the  model  into  ANSI  ‘C’  executable  computer  code.  SIMU¬ 
LINK  possesses  a  feature  called  Real  Time  Workshop  that  converts,  compiles,  and  executes 
the  design  model.  Once  the  model  was  converted,  the  generated  code  was  used  for  hardware- 
in-the-loop  experiments.  Moreover,  before,  during,  and  after  execution,  signals  can  be  modi¬ 
fied  {tuned),  traced,  and  stored  for  follow  on  examination.  “Generated  code  can  run  on  PC 
hardware,  DSP’s,  microcontrollers  on  bare-board  environments,  and  with  commercial  or  pro¬ 
prietary  real  time  operating  systems.”  [13,  p.  1-2] 
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The  ANSI  ‘C’  code  conversion  is  completed  in  four  steps.  These  are 

•  analysis  of  the  SIMULINK  model  to  ensure  there  are  no  unsupported  SIMULINK 
block  library  functions, 

•  reading  of  the  SIMULINK  model  into  a  “intermediate  hierarchical  representation 
called  model. rtw ”  [Ref.  14,  p.  2-4], 

•  translation  of  the  model.rtw  file  into  ANSI  ‘C’  code  using  a  software’s  “Target 
Language  Compiler’’  [Ref.  14,  p.  2-4],  and 

•  construction  of  a  makefile  and  compilation  into  an  executable  file,  model.exe. 

The  Real  Time  Workshop  environment  allows  signals  to  be  tuned.  This  can  occur  prior 
to  code  generation  or  during  code  execution.  However,  the  most  valuable  feature  that  this 
function  supplied  was  the  ability  to  trace  a  real-time  signal  throughout  the  model.  This  feature 
came  into  critical  use  while  debugging  the  ACS  single  board  computer  software  and  in  the 
analysis  of  torque  rod  commands.  Further  discussion  regarding  this  issue  is  reserved  for  the 
following  sections. 

The  model  used  in  the  conversion  process  is  shown  in  Figure  5.6.  As  displayed,  the 
system  as  described  in  Chapter  V,  Section  B  was  used  with  the  addition  of  an  RS-232  interface 
connection.  The  interface  connection  functions  as  the  relay  device  between  the  air-bearing’s 
single-board  computer,  magnetometer,  and  torque  rods.  The  RS-232  was  the  input/output  con¬ 
duit  that  received  magnetometer  readings  and  sent  torque  commands  to  the  torque  driver  board. 
The  RS-232  interface  to  the  system  is  shown  in  Figure  5.6.  The  RS-232  settings  were  estab¬ 
lished  as  listed  in  Table  5.1. 


Derivative!  kd2 


Figure  5.6  NPSAT1  ACS  Air-bearing  Dynamic  Plant 
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Port 

Baud 

#  Bits 

#  Stop 

Parity 

Protocol 

Buffer 

Buffer 

Rate 

Bits 

(Send) 

(Rev) 

COM1 

9600 

8 

1 

None 

None 

1024 

1024 

Table  5.1  RS-232  Parameters 


Communication  was  established  between  the  micro-controller  computer  and  the  ACS 
model  using  a  MATLAB  .m  hie.  A  copy  of  the  program  is  located  in  Appendix  K.  The  MAT- 
LAB  code  used  to  initialize  the  channel  is  given  by 


%Simulink  RS232  set  up  parameters 
RS232.SendData  =  '%d,%d,%d,%d,%d\n'; 

RS232.RecData  =  ’%d,%d,%d\r'; 

RS232.InputPorts  =  [1  23  45]; 
RS232.0utputPorts  =  [12  3]; 

RS232. Timeout  =  0.005; 

RS232.EOM  =  1; 


%d#l=command ;  d#2-#4=tx,ty,tz 
d#5=time  duration 
%  d#l-3=magnetometer  readings, 
bx,by,bz 

%  identihcation  of  serial  port  block 
%  identihcation  of  serial  port  block 
%  time  out  value  less  than  50  mSec 
%  end  of  message  command. 


The  hardware-in-the-loop  process  was  established  using  another  SIMULINK  feature. 
Specifically,  XPC  Target  and  XPC  Host  functions  were  used  to  simulate  the  ground  station  and 
spacecraft  control.  After  the  ACS  model  was  built  and  compiled  using  Real  Time  Workshop, 
the  executable  code  was  loaded  to  the  air-bearing’s  micro-controller  computer.  The  air¬ 
bearing  computer  was  identihed  as  the  Target  while  a  desktop  personal  computer  served  as  the 
Host  or  ground  station.  The  two  computers  communicated  via  serial  lines;  however,  upon 
completion  of  preliminary  tests  that  proved  ah  hardware  and  software  components  functioned 
properly,  a  remote  system  will  be  incorporated.  The  manner  in  which  the  magnetometer, 
power  supplies,  torque  driver  board,  and  Host  and  Target  computers  were  connected  is  shown 
in  Figure  5.7.  Additionally,  during  remote  operations,  the  air-bearing  uses  batteries  to  supply 
electricity  vice  using  a  DC  power  supply.  The  power  supply  provided  30  V  DC  to  power  the 
magnetometer,  torque  driver  board,  and  micro-controller  computer. 
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Figure  5.7  NPSAT1  ACS  Air-Bearing  Control  Configuration 

External  magnetic  field  ephemeris  data  that  was  stored  by  the  micro-controller  com¬ 
puter  is  listed  in  Table  5.2.  This  data  was  collected  during  the  third  laboratory  magnetic  field 
surveys  as  discussed  in  Chapter  IV.  All  values  are  in  Tesla. 

Following  the  successful  conversion  from  a  model  (.mdl)  file  to  an  executable  (.exe) 
file,  hardware-in-the-loop  tests  commenced.  Initial  trials  were  encouraging;  however,  a  prob¬ 
lem  with  the  magnetometer  signal  routing  was  discovered.  Initially,  magnetometer  readings 
were  received  through  the  RS-232  and  successfully  passed  to  the  ACS  for  calculation.  How¬ 
ever,  after  repeated  experiments  designed  to  demonstrate  stability,  it  was  discovered  that  the 
output  data  was  not  reliable.  Therefore,  Real  Time  Workshop  target  scopes  were  used  to  ana¬ 
lyze  the  different  signals  present  throughout  the  air-bearing  plant.  The  expected  result  was  a 
dipole  moment  command  sent  through  the  RS-232.  However,  after  repeated  experiments,  the 
output  expected  from  the  ACS  did  not  agree  with  the  theoretical  function  of  the  ACS.  At  first, 
it  was  believed  there  was  a  sequencing  problem  within  the  SIMULINK  model.  Simulation 
times,  signal  parameters,  and  data  collection  properties  were  adjusted  to  determine  the  source 
of  the  problem.  Two  sets  of  tests  successfully  built  the  model  into  ANSI  ‘C’  code,  accepted 
magnetometer  readings,  and  calculated  dipole  moment  values.  However,  this  was  the  exception 
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vice  the  norm  during  the  first  stages  of  testing.  Thereafter,  each  time  the  model  was  rebuilt, 
the  signals  exhibited  different  and  uncorrelated  behavior.  Each  section  of  the  ACS  executable 
model,  RS-232  parameters,  and  serial  communication  between  the  Target  and  Host  computers 
were  reexamined.  No  problems  were  discovered.  Therefore,  attention  was  turned  to  the  torque 
driver  circuit  board  and  micro-controller  software.  The  next  section  discusses  the  faults  dis¬ 
covered  with  the  torque  driver  circuit  board  and  micro-controller. 


90° 

Inclination 

75° 

Inclination 

105 

0  Inclination 

B  Field  (Tesla) 

B  Field  (Tesla) 

B  Field  (Tesla) 

Bx 

By 

Bz 

Bx 

By 

Bz 

Bx 

By 

Bz 

8.72E-05 

-4.42E-05 

-2.73E-05 

8.72E-05 

-4.42E-05 

-2.73E-05 

9.60E-05 

-3.42E-05 

-4.15E-08 

8.59E-05 

-1.09E-05 

-5.20E-05 

8.59E-05 

-1.09E-05 

-5.20E-05 

0.0001 

-1.21  E-05 

-9.65E-06 

8.44E-05 

1.66E-05 

-5.17E-05 

8.44E-05 

1.66E-05 

-5.17E-05 

9.91  E-05 

1.7  IE-05 

-9.23E-06 

8.27E-05 

3.93E-05 

-3.90E-05 

8.27E-05 

3.93E-05 

-3.90E-05 

9.19E-05 

4.02E-05 

3.50E-06 

8.22E-05 

5.42E-05 

-9.38E-06 

8.22E-05 

5.42E-05 

-9.38E-06 

8.10E-05 

5.38E-05 

2.27E-05 

8.17E-05 

5.28E-05 

1.93E-05 

8.17E-05 

5.28E-05 

1 .93E-05 

6.75E-05 

4.96E-05 

5.50E-05 

8.24E-05 

3.78E-05 

4.34E-05 

8.24E-05 

3.78E-05 

4.34E-05 

5.77E-05 

3.26E-05 

7.67E-05 

8.36E-05 

1.38E-05 

5.65E-05 

8.36E-05 

1.38E-05 

5.65E-05 

5.30E-05 

7.74E-06 

8.76E-05 

8.53E-05 

-1.31E-05 

5.56E-05 

8.53E-05 

-1.31E-05 

5.56E-05 

5.43E-05 

-1.59E-05 

8.66E-05 

8.68E-05 

-3.74E-05 

4.04E-05 

8.68E-05 

-3.74E-05 

4.04E-05 

6.27E-05 

-4.22E-05 

7.08E-05 

8.79E-05 

-4.99E-05 

1.58E-05 

8.79E-05 

-4.99E-05 

1 .58E-05 

7.41  E-05 

-5.33E-05 

4.80E-05 

8.75E-05 

-4.99E-05 

-1 .43E-05 

8.75E-05 

-4.99E-05 

-1.43E-05 

8.58E-05 

-5.03E-05 

2.49E-05 

Table  5.2  NPSAT1  ACS  Air-Bearing  External  Magnetic  Field  Vector  Component 

Ephemeris  Values  (Tesla) 

E.  NPSAT1  AIR-BEARING  SOLENOID  AND  TORQUE  DRIVER  CIRCUIT 
BOARD  TESTS 

Upon  completion  of  the  initial  battery  of  tests,  attention  was  focused  upon  the  air¬ 
bearing’s  hardware.  The  first  point  of  examination  was  the  solenoids  and  torque  driver  board. 
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A  test  plan  was  developed  to  isolate  problems.  The  plan  included  the  performance  of  current 
measurements  to  each  solenoid.  These  measurements  would  verify  that  each  solenoid  coil  was 
receiving  the  proper  amount  of  current. 

The  second  test  examined  whether  the  torque  driver  circuit  board  was  working  as  de¬ 
signed.  Specifically,  the  torque  driver  should  receive  a  digital  signal  from  the  micro-controller 
and  convert  it  into  an  analog  signal.  The  analog  signal  represents  the  amount  of  current  that  is 
applied  to  the  solenoid.  This  current  represents  the  amount  of  dipole  moment  calculated  by  the 
ACS. 


However,  before  the  test  results  and  the  solutions  proposed  are  discussed,  it  is  neces¬ 
sary  to  discuss  in  more  detail  the  solenoid’s  and  torque  driver  circuit  board’s  characteristics. 

As  discussed  in  Chapter  IV,  NPSAT 1  will  use  three  solenoids  (torque  rods)  to  produce 
a  dipole  moment.  Each  coil  will  produce  approximately  a  dipole  moment,  m,  of  ±33  A  ■  nr 
from  an  maximum  input  of  145  inA  of  current.  The  manufacturer  established  the  dipole  mo¬ 
ment  values  for  each  coil  through  tests  results.  [8]  However,  it  was  desirable  to  know  the  mag¬ 
nitude  of  the  coil’s  generated  magnetic  field  at  discrete  points  away  from  the  coil,  the  number 
of  coils  used,  the  flux  generated,  and  the  resultant  torque  expected  from  each  coil.  Therefore, 
based  upon  the  dipole  moment  and  maximum  current,  the  coils  magnetic  field  were  calculated 
using  [14] 


where 

Z  =  distance  nonnal  to  coil, 


B(Z) 


jU0  NiA 
In  z3 


Mu  '» 

In  z3 


_ n 

//0  =4^x10  T  ■  m/ A  =  permeability  constant, 
N  =  number  of  coil  wire  turns, 
i  =  current  (Amperes),  and 
m  =  NiA. 


(5.1) 


To  use  Equation  5.1,  the  number  of  coils  and  area  enclosed  by  each  coil  first  needed  to  be  de¬ 
termined.  The  number  of  coils  was  found  using  A  =  m/iA  .  [14]  The  number  of  wire  wraps  per 

coil,  N,  was  determined  to  be  3.9749xl05  wraps.  This  value  is  an  approximation  since  the 
wrapping  method,  wire  gage,  and  core  material  used  during  construction  are  proprietary  infor- 
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mation  and,  therefore,  unknown.  However,  the  calculations  were  believed  to  be  a  satisfactory 
approximation. 

Each  solenoid’s  flux  (Tesla  ■  m2  =  Weber  j  was  approximated  by  O  =  BA  =  u^inA. . 

[14]  The  coil  inductance  (  Tesla  ■  m2/Amp  =  Henry  j  was  found  by  L  -  NQ/i .  [14]  The  com¬ 
puted  magnetic  field,  flux,  inductance,  and  torque  approximations  generated  at  an  orthogonal 
distances  of  0  to  1  meter  from  the  coil  are  listed  in  Table  5.3.  As  expected,  the  plot  of  flux  vs. 
distance,  Figure  5.8,  displays  an  exponential  decay  of  the  magnetic  field  as  it  traveled  further 
away  from  the  source. 


Distance 

Magnetic  Field,  B 

Flux,  0> 

Inductance,  F 

Torque,  T 

(Meters) 

(Tesla) 

(Weber) 

(Henry) 

(Newton  Meter) 

0 

3.29E-05 

1.88E-08 

0.051655 

0.001086 

0.05 

1.17E-06 

6.67E-10 

0.00183 

3.847e-005 

0.10 

2.36E-07 

1.35E-10 

0.000371 

7.8019e-006 

0.15 

9.48E-08 

5.43E-1 1 

0.000149 

3.1288e-006 

0.20 

5.03E-08 

2.88E-1 1 

7.89E-05 

1.6587e-006 

0.25 

3.10E-08 

1.77E-1 1 

4.86E-05 

1.0216e-006 

0.30 

2.09E-08 

1.20E-1 1 

3.28E-05 

6.9066e-007 

0.35 

1.51E-08 

8.63E-12 

2.37E-05 

4.9747e-007 

0.40 

1.14E-08 

6.51E-12 

1.78E-05 

3.7512e-007 

0.45 

8.87E-09 

5.08E-12 

1.39E-05 

2.9283e-007 

0.50 

7.12E-09 

4.08E-12 

1.12E-05 

2.3488e-007 

1.0 

9.71E-10 

5.56E-13 

1.52E-06 

3.2056e-008 

Table  5.3  NPSAT1  Air-Bearing  Solenoid  Electrical  Properties 

The  torque  driver  circuit  board  was  designed  to  receive  a  digital  value  from  the  micro¬ 
controller  computer.  The  digital  value  represents  the  dipole  moment  calculated  by  the  ACS 
plant.  The  digital  input  was  converted  to  an  analog  value.  This  analog  signal  represents  the 
amount  of  current  sent  through  a  coil  and  is  the  output  of  the  torque  driver  circuit  board. 

Regulating  the  coil  current  regulates  the  amount  of  torque  produced  by  the  torque  rod. 
The  current  ranges  from  0  to  145  mA.  An  AD7224  8-bit  digital-to-analog  (DAC)  converter 
was  used  in  the  circuit  board.  The  reference  voltage  used  for  the  DAC  was  5  V  DC.  There- 
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fore,  the  incoming  digital  signal  was  quantized  to  256  analog  levels.  The  analog  signal  was 


Figure  5.8  NPSAT1  Torque  Rods  Calculated  Induced  Magnetic  Field 

multiplied  by  25  V  DC  which  produces  the  output.  The  25  V  DC  scaler  was  set  by  two  opera¬ 
tional  amplifiers.  The  first  was  used  to  boost  the  signal,  while  the  second  was  used  to  buffer  the 
output.  The  output  voltage  was  then  converted  into  current  using  Ohms  Law,  i  -V/R  .  The 
coil  resistance  was  denoted  by  R  and  was  equal  to  172  ohms.  [8] 

Quantization  values  of  the  digital-to-analog  current  values  for  the  AD7224  and  an 

AD565A  12-bit  DAC  are  presented  in  Table  5.4.  The  values  represent  binary  levels,  2n , 
where  n  =  0,1, 2, 3, 4, 5, 6, 7.  The  torque  driver  board  schematic  is  displayed  in  Figure  5.9. 

Torque  driver  circuit  board  tests  were  accomplished  by  inducing  and  measuring  current 
sent  to  the  solenoids.  Specifically,  a  Tektronix  TDS  2024  Digital  Oscilloscope,  a  Tektronix 
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8-Bit  DAC 

Current  (AMPS) 

12-Bit  DAC 

Current  (AMPS) 

00000000 

0 

000000000000 

0 

00000001 

0.00056777 

000000000001 

0.000035486 

00000010 

0.0011355 

000000000010 

0.000070971 

00000100 

0.0022711 

000000000100 

0.00014194 

00001000 

0.0045422 

000000001000 

0.00028388 

00010000 

0.0090843 

000000010000 

0.00056777 

00100000 

0.018169 

000000100000 

0.0011355 

01000000 

0.036337 

000001000000 

0.0022711 

10000000 

0.072674 

000010000000 

0.0045422 

11111111 

0.14478 

000100000000 

0.0090843 

001000000000 

0.018169 

010000000000 

0.036337 

100000000000 

0.072674 

111111111111 

0.14531 

Table  5.4  NPSAT1  Torque  Driver  Digital-to-Analog  Conversion 
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Figure  5.9  NPSAT1  Torque  Driver  Circuit  Board  DAC  [Provided  by  Mr.  Ron  Phelps, 

NPS  SSAG] 
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AM503B  AC/DC  Current  Probe  Amplifier,  and  a  Tektronix  A6302  20  Ampere  AC/DC  Cur¬ 
rent  Probe  were  used  as  test  equipment.  The  current  probe  was  degaussed  before  each  meas¬ 
urement  and  set  in-line  with  the  current  flow.  Torque  request  values  of  255,  128,  64,  32,  16,  8, 
4,  2,  1,0  were  entered  via  a  MATLAB  program.  The  expected  result  was  for  the  micro¬ 
controller  computer  to  relay  the  digital  request  to  the  torque  driver  board,  convert  it  to  an  ana¬ 
log  format,  and  apply  the  appropriate  current. 

Figure  5. 10  is  a  sample  of  the  results.  Use  of  the  current  probe  amplifier  required  the 
oscilloscope  to  always  be  set  to  10  mV  per  division.  Depending  on  the  current  size,  the  current 
probe  amplifier  voltage  scale  was  set  to  20,  10,  5,  2,  or  1  mV  per  division.  For  example,  Fig¬ 
ure  5.10  displays  a  pulse  with  an  amplitude  of  36.4  mV.  The  current  probe  amplifier  range  was 
set  to  20  mV  per  division.  Thus,  the  pulse  amplitude  was  twice  that  represented  on  the  oscillo¬ 
scope  display  and  the  actual  measurement  equaled  72.8  mV.  The  voltage  measured  had  a  one- 
to-one  conversion  from  voltage  to  current,  1  mV  =  1  mA.  Furthermore,  all  pulse  widths  were 
2.5  seconds.  Prior  to  each  measurement,  the  system  noise  was  measured  and  treated  as  a  bias. 
The  bias  was  subtracted  from  the  pulse  amplitude. 


TDS  2024  -  8:34:02  AIM  8/17/2004 

Figure  5.10  NPSAT1  Torque  Driver  Circuit  Board  Current  Test  (Bit  Level  128) 
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The  first  test  using  a  value  of  255  was  successful.  However,  as  the  bit  values  were  se¬ 
quentially  stepped  down,  the  current  levels  did  not  respond.  These  tests  were  completed  for 
each  solenoid.  All  coils  responded  in  the  same  fashion  with  the  exception  of  the  negative  Z 
coil.  The  Z  coil  did  not  respond  whatsoever.  Upon  investigation,  it  was  discovered  that  two 
port  pins  to  the  torque  driver  circuit  board  and  a  wire  to  the  negative  Z  coil  were  broken.  The 
pin  faults  prevented  any  quantization  below  the  bit  value  255.  The  broken  wire  prevented  any 
current  to  be  applied  to  the  negative  Z  coil.  The  circuit  board  pins  and  wire  connection  were 
repaired.  The  D/A  conversion  tests  were  accomplished  upon  completing  the  repairs. 

The  D/A  conversion  process  did  not  follow  a  linear  path  as  anticipated.  The  step  size 
for  the  8-bit  DAC  is  approximately  0.57  inA.  A  review  of  Tables  5.5  to  5.7  initially  proved 
that  the  digital-to-analog  conversion  progress  did  not  function  well.  Errors  greater  than  0.7% 
were  deemed  unacceptable  based  upon  the  DAC  step  size. 

Errors  were  detennined  by 


Error  = 


Expected  Value -Measured  Value 
Expected  Value 


xlOO. 


(5.2) 


Bit  Level 

Expected 

Value 

(mA) 

+X 

(mA) 

%  Error 

-X  (mA) 

%  Error 

255 

140 

141.6 

1.1% 

141.8 

1.3% 

128 

70 

70.4 

0.6% 

68.5 

2.1% 

64 

35 

34.6 

1.1% 

34.6 

1.1% 

32 

17.5 

16.8 

4.0% 

17.1 

2.3% 

16 

8.75 

7.2 

17.7% 

8.7 

0.6% 

8 

4.375 

4.4 

0.6% 

4.78 

9.3% 

4 

2.1875 

2.04 

6.7% 

2.45 

12.0% 

2 

1.09375 

1.12 

2.4% 

1.05 

4.0% 

1 

0.546875 

0.4 

26.9% 

0.475 

13.1% 

Table  5.5  NPSAT1  X-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  1 
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Bit  Level 

Expected 

Value 

(mA) 

+Y 

(mA) 

%  Error 

— Y  (mA) 

%  Error 

255 

140 

140.00 

0.0% 

144 

2.9% 

128 

70 

69.00 

1 .4% 

72.14 

3.1% 

64 

35 

33.00 

5.7% 

35.5 

1 .4% 

32 

17.5 

15.82 

9.6% 

16.57 

5.3% 

16 

8.75 

7.12 

18.6% 

7.61 

13.0% 

8 

4.375 

4.15 

5.1% 

3.53 

19.3% 

4 

2.1875 

1.65 

24.6% 

2.138 

2.3% 

2 

1.09375 

1.06 

3.1% 

1.16 

6.1% 

1 

0.546875 

0.40 

26.9% 

0.588 

7.5% 

Table  5.6  NPSAT1  Y-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  1 


Bit  Level 

Expected 

Value 

(mA) 

?  + 
y  N 

%  Error 

— Z  (mA) 

%  Error 

255 

140 

142.8 

2.0% 

143.5 

2.5% 

128 

70 

72.2 

3.1% 

71.3 

1.9% 

64 

35 

35 

0.0% 

35.7 

2.0% 

32 

17.5 

17.23 

1.5% 

16.6 

5.1% 

16 

8.75 

8.6 

1.7% 

8.92 

1.9% 

8 

4.375 

4.1 

6.3% 

4.46 

1.9% 

4 

2.1875 

1.65 

24.6% 

1.885 

13.8% 

2 

1.09375 

0.684 

37.5% 

1.01 

7.7% 

1 

0.546875 

0.4 

26.9% 

0.6 

9.7% 

Table  5.7  NPSAT1  Z-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  1 

Since  the  first  set  of  current  values  was  different  from  the  expected  results,  a  second  set 
of  data  points  was  recorded.  The  results  are  displayed  in  Tables  5.8-5.10.  Just  as  seen  in  the 
DAC  Test  1  results,  Test  2  results  show  unacceptable  quantization  error. 

Ideally,  the  DAC  process  should  follow  a  linear  step  representation.  It  was  quite  clear 
from  the  randomness  of  the  error  seen  in  Tables  5.5-5. 10  that  noise  was  introduced  that  grossly 
distorted  the  analog  signal.  This  noise  was  of  a  major  concern  because  it  had  a  disruptive  ef¬ 
fect  upon  the  system  that  needed  to  respond  precisely  to  fine  torque  commands.  The  distortion 
was  most  prevalent  in  the  lower  bit  values  as  witnessed  by  the  high  error  percentages. 
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Bit  Level 

Expected 

Value 

(mA) 

+X 

(mA) 

%  Error 

-X  (mA) 

%  Error 

255 

140 

144.4 

3.1% 

147.4 

5.3% 

128 

70 

70.48 

0.7% 

74.6 

6.6% 

64 

35 

36.73 

4.9% 

34.8 

0.6% 

32 

17.5 

18.44 

5.4% 

16.4 

6.3% 

16 

8.75 

9.2 

5.1% 

8.12 

7.2% 

8 

4.375 

3.64 

16.8% 

4.06 

7.2% 

4 

2.1875 

2.16 

1.3% 

2.051 

6.2% 

2 

1.09375 

0.94 

14.1% 

0.87 

20.5% 

1 

0.546875 

0.56 

2.4% 

0.68 

24.3% 

Table  5.8  NPSAT1  X-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  2 


Bit  Level 

Expected 

Value 

(mA) 

+Y 

(mA) 

%  Error 

-Y  (mA) 

%  Error 

255 

140 

141.7 

1.2% 

142.1 

1.5% 

128 

70 

76.8 

9.7% 

71.7 

2.4% 

64 

35 

39.8 

13.7% 

35.9 

2.6% 

32 

17.5 

16.6 

5.1% 

16.9 

3.4% 

16 

8.75 

7.35 

16.0% 

8.22 

6.1% 

8 

4.375 

4.08 

6.7% 

3.82 

12.7% 

4 

2.1875 

1.68 

23.2% 

2.47 

12.9% 

2 

1.09375 

1.64 

49.9% 

1.42 

29.8% 

1 

0.546875 

no  read¬ 
ing 

no  value 

0.72 

31.7% 

Table  5.9  NPSAT1  Y-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  2 
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Bit  Level 

Expected 

Value 

(mA) 

+Z 

(mA) 

%  Error 

— Z  (mA) 

%  Error 

255 

140 

145.9 

4.2% 

146.24 

4.5% 

128 

70 

75.8 

8.3% 

75.04 

7.2% 

64 

35 

36.52 

4.3% 

37.44 

7.0% 

32 

17.5 

18.5 

5.7% 

19.6 

12.0% 

16 

8.75 

8.73 

0.2% 

9.4 

7.4% 

8 

4.375 

3.99 

8.8% 

4.77 

9.0% 

4 

2.1875 

1.86 

15.0% 

2.47 

12.9% 

2 

1.09375 

1.08 

1.3% 

1.47 

34.4% 

1 

0.546875 

0.89 

62.7% 

0.925 

69.1% 

Table  5.10  NPSAT1  Z-Torque  Rod  Command  Digital-to-Analog  Conversion  Test  2 

This  noise  phenomenon  is  exhibited  in  Figure  5.11.  Some  noise  distortion  was  evident 
since  the  pulse’s  amplitude  does  not  remain  constant. 


TDS  2024  -  10:19:03  AM  8/17/2004 

Figure  5.11  NPSAT1  Torque  Driver  Circuit  Board  Current  Test  (Bit  level  1) 


The  torque  driver  circuit  board  current  distortions  could  be  caused  by  three  sources  of 

noise. 
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The  first  hypothesis  was  that  the  instrumentation  was  introducing  noise.  This  statement 
was  correct.  The  instrumentation  created  noise;  however,  it  was  accounted  for  in  the  measuring 
process.  As  discussed  previously,  the  mean  instrumentation  noise  was  measured  prior  to  each 
recorded  data  point.  The  mean  noise  value  was  subtracted  from  the  pulse  amplitude  which 
produces  the  resultant  signal. 

The  second  theory  focuses  upon  the  torque  rod  driver  circuit  board.  Noise  measure¬ 
ments  of  the  circuit  board’s  components  yielded  resident  noise  levels  as  high  as  40  mV. 

The  third  theory  was  that  the  current  values  used  to  induce  the  coils  were  too  low  and 
would  mix  with  the  systems  resident  thennal  noise,  thus,  becoming  distorted  and  unreliable. 

Ideally,  at  the  lower  bounds  of  the  torque  and  current  levels,  the  drive  circuit  should 
follow  the  process  linearly.  However,  a  review  of  the  manufacturers  torque  rod  test  sheets  re¬ 
vealed  a  non-linearity  of  the  current-to-torque  output  begins  to  falter  as  it  approaches  the  ori¬ 
gin.  This  phenomenon  is  exhibited  in  Figure  5.11.  The  distortion  occurs  at  approximately  ±50 
mA.  This  point  equals  to  approximately  a  bit  value  of  9 1 .  Therefore,  based  upon  the  manufac¬ 
turer’s  data  shown  in  Figure  5.12,  two-thirds  of  the  current  level  demands  will  go  unaltered 
while  the  other  one-third  was  susceptible  to  noise  distortion.  This  phenomenon  is  exhibited  in 
the  DAC  current  tables  shown  above.  Bit  values  greater  than  64  show  a  tendency  to  possess 
only  a  small  amount  of  error.  However,  once  past  the  64-bit  value,  error  percentages  rise 
quickly.  Therefore,  alternatives  to  the  current  hardware  process  must  be  addressed. 

Three  possible  methods  are  proposed  to  alleviate  this  issue.  The  first  is  to  use  a  DAC 
that  quantizes  the  current  levels  to  a  finer  resolution.  Thus,  the  reason  for  presenting  the  12-bit 
DAC  values  in  Table  5.4.  A  quantization  step  size  of  35  pA  will  provide  extreme  resolution, 
vice  using  a  current  step  size  of  0.5  mA.  Furthermore,  instead  of  having  only  256  current  divi¬ 
sions,  the  12-bit  DAC  provides  4096  current  divisions.  However,  it  is  theorized  that  the  sole¬ 
noid’s  core  material  will  still  contain  residual  magnetism.  Moreover,  since  all  electronic  com¬ 
ponents  do  not  behave  linearly  as  they  approach  the  finest  resolution,  it  was  postulated  that  the 
12-bit  DAC  may  not  provide  the  necessary  resolution.  Therefore,  since  the  DAC  conversion 
process  is  non-linear  in  the  lower  bounds,  using  a  non-linear  quantization  scheme  or  a 
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companding  amplifier  may  provide  resolution.  Companding  is  mostly  used  in  the  telecommu¬ 
nications  industry  to  boost  a  faint  analog  signal.  Specifically,  a  compression 
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Figure  5.12  NPSAT1  Solenoid  Current  Plot  [From  Ref.  8.] 


amplifier  compresses  an  analog  signal.  This  compressed  signal  is  uniformly  quantized  using  a 
companding  law  such  as  that  given  by  [15] 


where 


F(s)  =  sgn(s) 

Ll  =  bit  value,  and 

5  =  uncompressed  analog  signal  magnitude. 


\n{\  +  ju  s ) 
ln(l  +  //) 


The  resultant  quantization  scheme  takes  on  a  logrithmic  nature  where  lower  values  are 
quantized  to  a  finer  resolution  while  higher  values  can  be  quantized  using  less  steps,  thus  pro¬ 
viding  fidelity  while  reducing  quantization  noise  or  quantization  error.  Development  and  im¬ 
plementation  of  a  companding  scheme  was  deemed  as  a  topic  for  further  research. 

The  second  option  is  to  add  or  to  replace  the  solenoids  with  air  coils.  Air  coils  will 
generate  the  same  amount  of  dipole  moment  but  will  not  exhibit  the  properties  that  the  alumi¬ 
num  alloy  core  solenoids  exhibit  at  lower  current  levels.  The  MICROCOSM  core  permeability 
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value  was  unavailable  due  to  proprietary  reasons.  However,  using  an  air  core  may  solve  the 
non-linearity  effect  since  the  material  permeability  property  of  air  is  equal  to  one.  Thus,  the 
solenoid  core  will  not  retain  a  magnetic  signature  and  cause  disturbances  at  the  lower  bounds. 
Investigation  in  this  matter  is  deemed  most  important  and  has  been  listed  as  an  issue  for  further 
research. 

Preliminary  investigations  revealed  that  an  air  coil  that  would  meet  the  project’s  goals 
could  be  constructed.  Initial  coil  construction  could  be  based  upon  Table  5.1 1.  Specifically, 
the  table  identifies  16  different  wire  gage  sizes,  areas,  required  turns,  resistances,  current,  di¬ 
pole  moments,  magnetic  fields,  flux,  inductances,  and  size  parameters.  This  table  was  created 
in  cooperation  with  NPS  Professor  Barry  S.  Leonard.  The  EXCEL  spreadsheet  can  be  adjusted 
to  accommodate  different  coil  core  lengths,  diameters,  voltages,  currents,  or  any  of  the  other 
specifications  listed. 

The  third  option  is  to  reengineer  the  torque  driver  circuit  board.  This  process  involves 
research  to  determine  the  best  solid-state  components  that  reduce  noise  while  simultaneously 
offering  fine  current  resolution.  Currently,  no  matter  how  fine  the  quantization  scheme  is,  the 
40  mV  of  noise  present  within  the  circuit  board  will  still  cause  masking.  An  additional  possi¬ 
bility  is  to  add  a  filter  or  filters  to  the  current  driver  board  that  would  isolate  the  noise  from  the 
signal  desired.  The  identification  of  the  filter  type  and  possibility  of  reengineering  the  circuit 
board  is  considered  an  additional  research  topic. 

F.  NPSAT1  TORQUE  ROD  MAGNETIC  FIELD  MEASUREMENTS 

The  NPSAT 1  air-bearing  tests  began  with  an  assumption  that  all  hardware  and  soft¬ 
ware  components  were  working  properly  and  as  designed.  However,  following  the  initial 
hardware-in-the-loop  testing,  it  was  deemed  that  further  testing  to  the  air-bearing  components 
was  required  prior  to  reinitializing  the  hardware-in-the-loop  experiments.  Therefore,  this  sec¬ 
tion  will  discuss  the  results  found  from  measuring  the  induced  magnetic  field  in  the  three 
torque  rods. 

The  tests  conducted  were  performed  on  the  positive  axis  coils  only.  The  process  was 
accomplished  using  a  MATLAB  program  designed  to  induce  a  triggered  current  based  upon 

the  integer  bit  values  of  2n ,  where  n  =  1,2, 3, 4, 5, 6, 7.  Thus,  the  bit  values  255,  128,  64,  32,  16, 
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8,  4,  2,  and  1  that  correspond  to  their  respective  current  values  were  used.  The  program  used  is 
presented  below.  This  MATLAB  program  was  drafted  by  Mr.  James  Homing,  an  NPSAT1 
staff  engineer.  The  program  input  argument,  t,  was  changed  for  each  new  measurement.  The 
value  t  relates  to  the  bit  value  desired.  Each  test  was  triggered  for  2.5  seconds.  Selection  of 
which  coil  to  trigger  was  based  upon  the  second,  third,  and  fourth  term  of  the  variable  declared 
as  “s  =  sprintf(T,%d,0,0,%d\n',  t,  DURATION).”  These  terms  represent  the  X,  Y,  and  Z  coils, 
respectively.  Specifically,  the  %d  tenn  represents  the  excited  coil.  The  number  one  was  a 
command  signal.  A  zero  commands  a  coil  not  to  excite.  The  fifth  value  represented  the  time 
duration  in  milliseconds  that  the  coil  was  triggered. 

%  NPSAT1  Air-Bearing  Torque  Rod  Driver  Algorithm 
%  drafted  by  Mr.  James  Horning,  NPS,  Monterey,  CA 
%  16  August  2004 
clear  all,  clc 

sl=serial('COMT,  'BaudRate',  9600,  'Terminator',  13); 
fopen(sl); 
t  =  255; 

N  =  1; 

DURATION  =  2500; 
for  i=l:N, 

s  =  sprintf('  1  ,%d,0,0,%d\n',  t,  DURATION); 
fprintf(sl,  s); 

pause(DURATION/ 1 000); 

s  =  fgets(sl) 

end; 

fclose(sl); 

delete(sl); 

The  program  was  run  on  a  PC  with  the  magnetometer  connected  via  a  serial  port.  The 
magnetometer  readings  were  recorded  using  a  laptop  computer.  The  data  recording  program 
used  was  the  same  as  that  used  during  the  laboratory  magnetic  field  surveys  discussed  in  Chap¬ 
ter  IV.  The  magnetometer  was  centered  and  set  directly  against  the  torque  rod.  The  magne¬ 
tometer  X,  Y,  and  Z  axes  were  aligned  to  be  the  same  as  the  torque  rod  alignment  on  the  air 
bearing.  Even  though  the  magnetometer  was  set  against  the  torque  rod,  the  actual  sensor  was 
%  of  an  inch  away  from  the  solenoid.  Prior  to  coil  excitation,  the  magnetic  field  was  measured 
and  recorded  for  approximately  ten  seconds.  Following  this  measurement  and  as  the  data  re¬ 
cording  continued,  the  positive  coil  was  excited.  The  measurement  was  continued  after  coil 
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excitation  to  record  any  residual  magnetic  affects.  Once  all  measurements  were  complete  for 
each  positive  torque  rod,  a  MATLAB  program  was  used  to  analyze  the  collected  data. The  pro¬ 
gram  used  to  perform  this  analysis  is  located  in  Appendix  L.  Specifically,  the  program  loads 
the  raw  data,  extracts  the  magnetic  north  pole  value,  and  converts  the  data  from  counts  to  Tesla 
using  the  relationship  exhibited  in  Equation  (4.2).  Moreover,  the  magnetic  field  vectors  were 
calculated  by  subtracting  the  static  magnetic  field  vectors  from  the  apparent  induced  magnetic 
field  vectors.  The  resultant  vectors  represent  the  induced  magnetic  field  vectors.  The  magni¬ 
tude  of  the  induced  magnetic  field  was  calculated  by  taking  the  square  root  of  the  sum  of  the 
squares.  This  was  the  same  relationship  as  shown  in  Equation  (3.9).  Furthermore,  once  the 
field  magnitude  is  determined,  the  program  is  used  to  calculate  the  torque  given  by 

T  =  /uB  sin  ( 6) .  [14]  The  variable  T  is  the  torque  (N  •  m) ,  m  is  the  dipole  moment  |  A  ■  m2  j ,  B 

is  the  induced  magnetic  field  (Tesla),  and  9  is  the  angle  between  the  magnetometer  and  the 
solenoid.  During  these  experiments,  the  angle  used  was  90°.  The  dipole  moment  used  was 
found  from  the  ideal  current  value  that  coincides  with  the  respective  bit  value  torque  command 
as  noted  in  the  previous  section.  The  dipole  moment  was  found  using  m  -  NiA.  [14], 

The  torque-rod  induced  magnetic-field  measurements  results  are  shown  in  Figures  5- 
13  to  5-27.  The  figures  display  the  generated  magnetic  field  and  the  associated  torque  created 
for  its  respective  bit  level.  Additionally,  Figures  5-16,  5-21,  and  5-27  display  a  chart  that  plots 
all  of  the  torque  profiles.  The  purpose  of  displaying  this  chart  was  to  show  that  the  torque  val¬ 
ues  decrease  as  the  bit  value  decreases,  thus  proving  that  the  torque  rods  respond  to  commands. 
Furthermore,  a  sample  of  the  coil’s  residual  magnetism  was  recorded  to  prove  that  it  exists. 
This  residual  effect  is  plainly  seen  in  Figure  5-28.  Specifically,  during  the  last  three  seconds 
during  data  capture,  the  field  was  erratic  at  the  lower  levels.  This  occurs  because  the  field  had 
decayed,  but  the  material  properties  of  the  coil  still  maintained  a  magnetic  signature.  The  re¬ 
sidual  magnetism  effect  could  cause  the  spacecraft  to  incorrectly  measure  the  external  mag¬ 
netic  field.  This  erroneous  reading  could  cause  the  ACS  to  respond  to  an  erroneous  signal  and, 
thus,  an  incorrect  attitude  correction  results. 
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x  10  4  x  T-Rod  Mag  Field  (255) 


x  1 0  4  X  T-Rod  Mag  Field  (1 28) 


X  T-Rod  Torque  (255) 


Figure  5.13  NPSAT1  Air-Bearing  X  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  255  &  128) 


X  10  4  X  T-Rod  Mag  Field  (64)  x  10 3  X  T-Rod  Torque  (64) 


x  104  X  T-Rod  Mag  Field  (32) 


Seconds 


X  T-Rod  Torque  (32) 


Figure  5.14  NPSAT1  Air-Bearing  X  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  64  &  32) 
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Tesla  Tesla 


x10  4  X  T-Rod  Mag  Field  (16) 


Seconds 


X  T-Rod  Torque  (16) 


X  T-Rod  Torque  (8) 


Figure  5.15  NPSAT1  Air-Bearing  X  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  16  &  8) 


X  104 


X  T-Rod  Mag  Field  (4) 


X  T-Rod  Mag  Field  (2) 


x  io'5  X  T-Rod  Torque  (4) 


Seconds 


x  io~5  X  T-Rod  Torque  (2) 


Figure  5.16  NPSAT1  Air-Bearing  X  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  4  &  2) 
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Newton  Meters  jes|a 


FM-1  TORQUE  RANGE 


Figure  5.17  NPSAT1  Air-Bearing  X  Torque  Rod  Induced  Magnetic  Field,  Associated 

Torque  (Bit  Level  1),  and  Torque  Range 


x  1 0'4  Y  T-Rod  Mag  Field  (255)  Y  T-Rod  Torque  (255) 


x  i  o'4  Y  T-Rod  Mag  Field  (128) 


xIO'3  Y  T-Rod  Torque  (128) 


Seconds 


Figure  5.18  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  255  &  128) 


90 


Y  T-Rod  Mag  Field  (64) 


Y  T-Rod  Torque  (64) 


x  -|o  3  Y  T-Rod  Torque  (32) 


Figure  5.19  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  64  &  32) 

xIO'4  Y  T-Rod  Mag  Field  (16)  x10-4  Y  T-Rod  Torque  (16) 


x  1 0'4  Y  T-Rod  Mag  Field  (8)  x  1 06  Y  T-Rod  Torque  (8) 


Figure  5.20  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  16  &  8) 
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x  1 0  4  Y  T-Rod  Mag  Field  (4) 


Y  T-Rod  Torque  (4) 


xIO'5  Y  T-Rod  Torque  (2) 


Figure  5.21  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  4  &  2) 

xIO5  Y  T-Rod  Mag  Field  (1)  x1qb  Y  T-Rod  Torque  (1 ) 


FM-2  TORQUE  RANGE 


Figure  5.22  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field,  Associated 

Torque  (Bit  Level  1),  and  Torque  Range 
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Tesla  Tesla  <Ji  Tesla  Tesla 


X104  Z  T-Rod  Mag  Field  (255)  Z  T-Rod  Torque  (255) 


.23  NPSATl  Air-Bearing  Z  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  255  &  128) 


Z  T-Rod  Mag  Field  (64) 


Z  T-Rod  Mag  Field  (32) 


Z  T-Rod  Torque  (64) 


Figure  5.24  NPSATl  Air-Bearing  Z  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  64  &  32) 
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Tesla  05  Tesla 


x  -jo'4  Z  T-Rod  Mag  Field  (16) 


Seconds 

Z  T-Rod  Mag  Field  (8) 


X10  3  Z  T-Rod  Torque  (16) 


5.25  NPSAT1  Air-Bearing  Z  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  16  &  8) 


Z  T-Rod  Mag  Field  (4)  x10‘5  Z  T-Rod  Torque  (4) 


-5  Z  T-Rod  Mag  Field  (2) 


Seconds 


Z  T-Rod  Torque  (2) 


Figure  5.26  NPSAT1  Air-Bearing  Z  Torque  Rod  Induced  Magnetic  Field  and  Associ¬ 
ated  Torque  (Bit  Levels  4  &  2) 
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Newton  Meters  2  Newton  Meters 


x-|g5  Z  T-Rod  Mag  Field  (1)  xlCT6  Z  T-Rod  Torque  (1 ) 


FM-3  TORQUE  RANGE 


5.27  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Magnetic  Field,  Associated 
Torque  (Bit  Level  1  ),  and  Torque  Range 


Figure  5.28  NPSAT1  Air-Bearing  Y  Torque  Rod  Induced  Residual 

Magnetic  Field  Sample 
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Residual  magnetism  within  the  spacecraft  could  possibly  upset  the  stability  of  the  ACS. 
Possible  sources  of  residual  magnetism  are  the  solar  array  currents,  minute  yet  significant  di¬ 
poles  established  in  satellite  circuitry  and  hardware,  communications  equipment,  power  sup¬ 
plies,  and  onboard  experiments.  The  determination  of  the  spacecraft  residual  magnetism  was 
deemed  important  enough  to  be  classified  as  an  additional  research  problem.  Additionally, 
once  the  residual  magnetism  is  quantified,  its  disturbance  can  be  model  as  an  external  distur¬ 
bance  torque.  This  new  disturbance  torque  can  then  be  accounted  for  just  like  the  aero,  solar, 
and  gravity-gradient  disturbance  torques  were  considered. 

G.  NPSAT1  AIR-BEARING  FOLLOW-ON  RESEARCH 

A  goal  of  this  thesis  was  to  prove  that  the  ACS  model  designed  by  Leonard  was  feasi¬ 
ble.  This  was  to  be  accomplished  using  the  air-bearing  platform.  However,  due  to  thesis  com¬ 
pletion  time  constraints,  hardware,  and  software  faults,  full  hardware-in-the-loop  tests  were 
not  fully  completed.  Achieving  this  goal  was  possible;  however,  further  preliminary  work 
needs  to  be  accomplished  prior  to  reinitializing  the  hardware-in-the-loop  experiments.  Specifi¬ 
cally,  using  the  results  detennined  from  the  input/output  current  tests,  DAC  tests,  torque  driver 
board  tests,  and  torque  rod  magnetic  field  test,  it  is  deemed  that  more  attention  needs  to  be 
given  to  the  hardware  used  on  the  air-bearing  platform. 

The  first  step  is  to  initiate  a  redesign  of  the  torque  driver  circuit  board.  This  redesign 
should  include  a  noise  reduction  analysis  that  incorporates  solid-state  components,  amplifica¬ 
tion,  and  filtering  capability.  The  40  mV  of  noise  discovered  within  the  circuit  boards  circuitry 
is  unacceptable. 

The  second  step  is  to  replace  the  current  torque  rods  with  solenoids  that  are  specifically 
designed  and  manufactured  for  the  satellite’s  requirements.  The  rods  used  now  are  commercial 
solenoids  that  were  purchased  prior  to  a  complete  understanding  of  the  attitude  control  sys¬ 
tem’s  function. 

Once  these  two  procedures  are  completed,  basic  hardware-in-the-loop  examinations 
could  re-commence.  Upon  completion  of  the  basic  hardware-in-the-loop  tests,  the  following 
topics  still  require  exploration  installation  of  motion  and  recording  sensors  to  the  air-bearing 
platform  to  capture  the  ACS  fidelity 
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•  installation  of  Helmholtz  Coils  that  will  allow  the  ACS  to  be  exercised  in  a 
magnetic  field  similar  to  that  in  space 

•  determination  of  the  residual  magnetic  fields  produced  by  the  S/C,  onboard 
equipment,  and  experiments. 

Completion  of  the  follow-on  research  will  allow  for  the  NPSAT 1  engineers  to  fully  understand 
how  the  attitude  control  system  interacts  with  external  magnetic  fields. 

In  summary,  this  chapter  described  the  initial  hardware-in-the-loop  tests  designed  to 
exercise  the  NPSAT1  ACS.  Specifically,  the  ACS  program  was  converted  from  a  MATLAB 
.m  file  into  executable  code  using  Real  Time  Workshop.  Additionally,  tests  were  conducted  to 
determine  if  all  of  the  air-bearing  components  functioned  as  initially  designed.  Sadly,  these 
tests  failed.  However,  from  the  failure  came  useful  information  that  is  leading  to  improvement 
of  follow-on  testing  and  hardware  design. 

The  next  chapter  presents  the  conclusion  drawn  from  this  thesis  research. 
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VI.  CONCLUSIONS 


This  thesis  had  three  objectives.  The  first  objective  was  to  verify  and  to  validate  the 
NPSAT1  magnetic  attitude  control  system  algorithm  and  simulation  model  drafted  by  Leonard 
[9].  The  second  objective  was  to  establish  a  laboratory  that  would  house  an  air-bearing  plat¬ 
form  designed  to  emulate  NPSAT1  attitude  control  system.  The  final  objective  was  to  perform 
experiments  using  the  air-bearing  to  exercise  the  NPSAT1  ACS  software  and  hardware. 

Verification  and  validation  of  the  NPSAT1  magnetic  attitude  control  program  and 
computer  simulation  model  was  completed  by  researching  the  cited  references  used  by  Leo¬ 
nard,  drafting  a  program  based  on  the  reference  material,  and  building  a  model  designed  to 
mimic  the  satellites  attitude  process.  The  empirical  relationships  used  in  drafting  the  ACS  pro¬ 
gram  and  computer  model  were  established  in  Chapter  III.  The  program  and  model  incorpo¬ 
rated  these  empirical  relationships  by  modeling  the  external  magnetic  field  the  satellite  will 
experience,  external  disturbance  torques,  spacecraft  dynamics  and  kinematics,  and  the  control 
laws  required  to  induce  a  dipole  moment  and  torque  demanded  by  the  ACS. 

Comparing  the  developed  models  to  existing  models  and  known  control  theory  via  in¬ 
spection  completed  validation  of  each  stage.  Specifically,  the  magnetic  field  that  the  spacecraft 
will  experience  was  compared  against  two  known  models.  The  first  was  a  model  developed  by 
the  Finnish  Meteorlogical  Institute  [2].  The  second  was  a  textual  model  developed  by  Wertz  in 
[1].  Both  models  compared  well  to  Leonard’s  [9]  and  to  the  one  drafted  for  this  thesis.  ACS 
model  validation  was  completed  by  independently  constructing  the  model  as  Leonard  built  it. 
Performing  this  process  allowed  for  the  original  model  to  be  dissected  and  examined  against 
empirical  theory  discussed  in  Chapter  III.  All  facets  of  the  model  were  analyzed  and  proved  to 
be  accurate  science. 

The  second  thesis  objective  was  to  establish  an  environment  where  the  ACS  program 
could  be  tested  using  hardware.  This  task  built  on  previous  work  completed  by  Schmidt  [11] 
who  developed  an  air-bearing  platform.  The  air-bearing  platform  was  constructed  to  exhibit 
similar  characteristics  that  NPSAT 1  hold.  So,  to  establish  a  test  bed,  a  laboratory  had  to  be 
established.  The  laboratory  was  constructed  by  first  establishing  a  reference  grid  system  that 
would  take  into  account  the  air-bearing’s  body  frame,  measurement  devices  frame,  and  labora- 
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tory  frame.  Additionally,  the  magnetic  field  within  the  laboratory  was  surveyed  and  mapped. 
Measuring  the  individual  magnetic  field  lines  and  determining  the  magnitude  for  a  discrete 
point  in  the  laboratory  space  completed  the  mapping.  The  measured  values  are  important  be¬ 
cause  the  values  are  used  by  the  ACS  as  an  entering  argument  needed  by  the  ACS  program  to 
calculate  necessary  dipole  moment  changes. 

The  magnetic  field  surveying  and  mapping  progress  were  completed  in  three  stages. 

The  first  survey  performed  encompassed  the  entire  grid  reference  system  surrounding  the  air¬ 
bearing  platform.  This  initial  survey  captured  a  snapshot  of  what  the  laboratory’s  magnetic 
field  resembled  and  how  material  in  the  laboratory  affected  the  field’s  properties.  The  second 
survey  narrowed  the  scope  of  examination.  The  second  survey  concentrated  upon  the  immedi¬ 
ate  area  surrounding  the  air-bearing.  The  results  of  this  survey  proved  that  the  magnetic  field 
in  the  air-bearing’s  immediate  vicinity  was  warped;  however,  it  was  mostly  static  and  exhib¬ 
ited  very  few  radical  changes  in  magnitude.  The  final  survey  was  completed  from  an  air¬ 
bearing  aspect.  Here,  the  magnetometer  used  to  measure  the  previous  two  surveys  was 
mounted  to  the  air-bearing.  The  air-bearing  was  rotated  360  degrees  about  its  Z  axis  and  in¬ 
clined  by  75  degrees  and  105  degrees.  Doing  so  allowed  for  the  survey  to  capture  the  magnetic 
field  that  would  immediately  affect  the  ACS  system.  Moreover,  this  survey  provided  the  ex¬ 
ternal  magnetic  field  ephemeris  data  required  by  the  ACS  program. 

The  third  thesis  objective  was  to  convert  the  ACS  program  from  a  simulation  model 
into  executable  code,  establish  XPC  Host  and  XPC  Target  communication  protocols,  and  to 
perfonn  hardware-in-the-loop  tests  that  would  demonstrate  the  NPSAT1  ACS  functionality. 

The  first  two  goals  set  by  the  third  thesis  objective  were  successfully  met.  The  ACS 
simulation  model  was  successfully  converted  from  a  MATLAB  .m  file  and  SIMULINK  .mdl 
file  into  an  ANSI  ‘C’  code  executable  file.  This  was  accomplished  using  the  SIMULINK  Real 
Time  Workshop  function.  This  function  proved  invaluable  because  it  allows  the  engineer  to 
model  a  system  and  then  use  that  same  model  as  the  foundation  to  perfonn  hardware  and  soft¬ 
ware  implementation.  Additionally,  once  the  ACS  model  was  converted  into  ANSI  ‘C’  code, 
the  executable  code  could  be  immediately  loaded  into  the  air-bearing’s  computer  using  the 
SIMULINK  XPC  Host  and  XPC  Target  functions.  Doing  so  allowed  the  executable  model  pa¬ 
rameters  to  be  adjusted  as  necessary  to  ensure  processed  signals  traveled  the  correct  path. 
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Moreover,  the  model’s  executability  was  successful  because  the  interface  between  air¬ 
bearing’s  magnetometer,  torque  rod  driver  circuit  board,  micro-controller  computer,  and  host 
computers  was  solved  through  the  use  of  a  RS-232  input/output  device. 

The  final  goal  of  the  third  thesis  objective  was  partially  completed  since  the  planned 
objectives  were  not  entirely  accomplished.  The  objectives  were  to  initiate  the  ACS  program  on 
the  air-bearing  platfonn  and  to  witness  it  control  the  air-bearing  as  it  would  control  NPSAT1 
in  space.  However,  the  hardware-in-the-loop  tests  deviated  from  the  ideal  tests  planned.  The 
deviations  were  caused  by  faults  discovered  in  the  micro-controller  single  board  computer, 
torque  rod  driver  circuit  board,  and  torque  rods.  Specifically,  hardware-in-the-loop  experi¬ 
ments  commenced  by  attempting  to  run  the  ACS  program  directly  after  all  air-bearing  hard¬ 
ware  was  installed  and  connected.  The  tests  failed  from  signals  not  being  received  and  trans¬ 
mitted  correctly.  The  first  impression  was  that  the  ACS  model  was  not  synchronizing  the  sig¬ 
nals  as  designed;  however,  after  many  tests  and  reexaminations,  focus  was  shifted  to  the  air¬ 
bearing  hardware  and  software.  It  was  discovered  that  the  software  written  to  control  the  data 
flow  to  and  from  the  ACS  program  was  flawed.  Additionally,  hardware  faults  were  discovered 
in  the  torque  driver  circuit  board  that  prevented  the  proper  digital  to  analog  conversion  of 
torque  rod  commands. 

Following  the  initial  problems  discovered,  focus  was  shifted  to  learning  more  on  how 
the  ACS  program,  micro-controller,  torque  rod  driver  circuit  board,  and  torque  rods  interacted. 
This  was  accomplished  by  conducting  tests  between  the  torque  rod  driver  circuit  board  and 
torque  rods.  Specifically,  dipole  moment  current  tests,  digital-to-analog  signal  conversion 
tests,  and  torque  rod  magnetic  field  tests  were  conducted.  These  tests  were  deemed  appropriate 
since  the  torque  rods  are  required  to  operate  in  extremely  low  levels  of  torque  fabrication.  Test 
results  showed  that  there  was  a  great  deal  of  noise  within  the  hardware  that  interfered  with  the 
proper  current  application  to  the  solenoids.  Additionally,  it  was  determined  that  the  torque  rods 
currently  in  use  were  two  large  and  would  not  perform  to  the  specifications  desired.  Therefore, 
analysis  commenced  to  detennine  if  air  coils  would  be  an  appropriate  substitute. 

Though  the  hardware-in-the-loop  tests  have  not  been  fully  completed,  the  results 
gained  from  the  tests  completed  yielded  sound  scientific  information.  The  data  collected  now 
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allows  the  NPSAT1  Project  Team  to  better  understand  the  magnetic  ACS  system.  Further¬ 
more,  the  results  from  the  tests  identify  areas  where  further  research  is  required. 

Specifically,  there  are  four  topics  of  interest  that  need  immediate  attention. 

The  first  topic  is  to  continue  the  preliminary  research  regarding  the  appropriate  sized 
torque  rods  required  for  NPSAT1  and  the  air-bearing.  This  research  will  include  determining 
the  appropriate  design  and  construction  of  the  solenoid.  This  is  important  because  the  existing 
torque  rods  were  constructed  without  fully  knowing  what  the  ACS  program  would  require. 

The  second  topic  of  interest  is  to  calculate  the  residual  magnetism  that  will  be  present 
onboard  NPSAT 1  and  the  air-bearing.  Residual  magnetism  is  produced  by  any  element  that 
can  hold  a  magnetic  signature.  Therefore,  all  of  NPSATl’s  sub-systems,  electronics,  wiring, 
and  frame  magnetism  will  have  to  be  calculated.  The  resultant  will  be  considered  an  external 
disturbance  torque  that  can  be  modeled  and  accounted  for  when  determining  the  exact  amount 
of  torque  required  by  the  ACS.  If  this  external  disturbance  is  not  accounted  for,  it  could  possi¬ 
bly  cause  the  magnetometer  to  read  a  skewed  magnetic  field;  thus,  causing  a  miscalculation  in 
the  counter  torque  required  by  the  ACS. 

The  third  topic  involves  the  continuation  of  the  hardware-in-the-loop  experiments  once 
all  of  the  hardware  issues  are  resolved.  This  process  will  continue  where  this  thesis  ended. 

The  final  topic  of  interest  will  be  to  advance  the  air-bearing  laboratory.  Currently,  the 
air-bearing  laboratory  is  operating  at  its  most  basic  form.  To  truly  capture  the  ACS  performing 
its  attitude  control  function,  remote  sensors,  recording  devices,  and  a  non-circulating  atmos¬ 
phere  are  required.  The  majority  of  the  equipment  required  has  already  been  acquired;  how¬ 
ever  it  has  yet  to  be  installed  for  fully  remote  operation.  Additionally,  the  desire  is  to  conduct 
the  simulation  in  an  environment  that  mimics  that  which  will  be  felt  in  space.  Therefore,  the 
magnetic  field  within  the  laboratory  will  have  to  be  adjusted  to  resemble  that  at  600  km  above 
the  Earth.  Doing  so  will  require  the  installation  of  Helmholtz  Coils  which  will  allow  the  mag¬ 
netic  field  to  be  adjusted  as  desired. 

The  verification  described  in  the  body  of  this  thesis  and  attention  to  the  above  four  top¬ 
ics  will  significantly  improve  NPSAT  1  on-orbit  performance. 
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APPENDIX  A.  INTERNATIONAL  GEOMAGNETIC  REFERENCE 

FIELD-EPOCH  2000 


This  Appendix  contains  the  International  Geomagnetic  Reference  Field  coefficient  val¬ 
ues  and  correction  factors  required  to  calculate  the  Earth’s  magnetic  field. 
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APPENDIX  B.  NPSAT1  ACS  MODEL  H  MATLAB  PROGRAM 


This  Appendix  contains  the  MATLAB  program  written  to  validate  Leonard’s  work. 
Specifically,  this  program  models  the  Earth’s  magnetic  field  using  the  values  shown  in  Appen¬ 
dix  A,  identifies  constants,  and  calculates  the  required  disturbances  as  described  in  Chapter  III. 


%  LCDR  Eric  W.  Herbert,  United  States  Naval  Postgraduate  School 
%  Spherical  Harmonic  Magnetic  Field  Model  Calculation 
%  International  Geomagnetic  Field  2000-2005  Data  resourced  from 
%  1)  www.ngdc.noaa.gov/IAGA/wg8/igrf.html  :  downloaded  Gaussian 
%  Coefficients 

%  2)  Wertz, James, R.  "Spacecraft  Attitude  Determination  and  Control",  1990 
%  3)  Leonard,  Barry.  "NPSAT  ADCS  Interim  Review",  August  2001 
%  4)  www.geo.fmi.fi/MGN/igrf:  model  used  to  compare  model's  results 
%  IGRF2000  corrected  for  2005  based  on  linear  interprolation 
%  Upon  S/C  launch,  IGRF  model  will  need  updating  IAW  with  2005-2010 
%  predictions. 

%  Majority  of  variable,  constants,  vectors  and  matrices  were  labeled  the 
%  same  as  Leonard  for  ease  of  comparison. 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%  constants  declared 

Re=6.37814e6;  %  Earth  equatorial  radius  (meters):  p.  827  Wertz 

h=600e3;  %  ideal  height  above  the  Earth  the  satellite  is  positioned  (meters) 

r=Re+h;  %  total  distance  s/c  is  from  center  of  Earth  (meters) 

we=7.292 le-5;  %  Earth  spin  rate 

mu=3.98601el4;  %  gravity  constant  (mA3/sA2) 

incln=34.5*pi/180;  %  S/C  inclination  in  radians; 

beta=  15*pi/180;  %solar  angle  in  radians 

nu0=-l  15*pi/180;  %  initial  subsolar  point 

alpha0=0*pi/180;  %  true  anomaly;  ideal  is  1  or  0 

Lg0=0;  %  Greenwich  Meridian  initial  position  WRT  RAAN;  set  from  ground 

data 

kpre=0;  %  nodal  precession  constant  assumed  to  be  zero 

wn=kpre*(Re/r)A3.5*cos(incln);  %  nodal  precession  (zero  eccentricity) 
w0=sqrt(mu/rA3);  %  orbital  angular  velocity  (rads/sec) 
rho=asin(Re/r);  %  Earth's  angular  radius 

V=w0*r;  %  linear  velocity  (m/s) 

Cd=2.5;  %  drag  coefficient ;  normally  2<Cd<2.5  used  2.5  worst  case  SMAD 

p.366 

Kaero=0.5*Cd*VA2;  %  Aero  torque  constant  for  calculations 
psun=4.5567e-6;  %  solar  pressure  constant  (N/mA2)  ; 

Psolar=2*psun;  %  sun  torque  constant  SMAD  p.  366 
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%%%%%%%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%% 

Altitude=linspace(450e3,800e3,8);  %  (meters)  simulink  model  lookup  table 

values 


%  simulink  model  look-up  table 

Density=[36.1  18  9.25  4.89  2.64  1.47  .837  .439] *  1  e- 1 3 ;  %  for  atmoshpheric  denstiy;  Wertz 

SMAD 

Area=[0.2674  0.2674  .1927];  %  projected  area  in  body  x,y,z  directions  (mA2) 


dL=[0.002  0.002  0.008];  %  predicted  center  pressure  &  center  of  mass  delta 

%  in  x,y,z  directions  (m);  dL=(cp-cm) 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Kinematics  and  Dynamics:  Moment  of  Inertia  Calculations 
%Moment  of  Inertia  Data  received  from  Sakoda  4/20/04 


Ixx=5.613560  Iyy=5.625140  Izz=2.561393  Ixy=-0.00 17378  Iyz=-0.0259106 
lxz=0.0 170608  wrt  body  axes,  SI  units  kg  mA2 

%Ixx=5;  lxy=0;  lxz=0;  Iyx=0;  Iyy=5.1 ;  lyz=0;  lzx=0;  lzy=0;  Izz=2;  %  Moments  of  Inertia  (kg 
mA2) 

Imoi=[Ixx  -Ixy  -Ixz;  -Iyx  Iyy  -Iyz;  -Izx  -Izy  Izz];  %  Moment  of  Inertia  matrix  or 

Interita  tensor  Sidi  p.89 


I_inverse=inv(Imoi);  %  inverse  Moment  of  Inertia  matrix 

aO=Ixx-Iyy+Izz;  al=Iyy-Izz;  a2=Ixx-Izz;a3=Iyy-Ixx;  %  combination  constants: 

Leonard  notes  pg9 1 
%  used  for  roll,  pitch,  yaw  calculations 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Quaternion  equations  and  angular  momentum 

phi_0=-0. 1 ;  theta_0=0. 1 ;  psi_0=-0. 1 ;  %  initial  Euler  angles 

(phi,  theta,  psi(radians) 

phidot=-0. 1 ;  thetadot=0. 1 ;  psidot=0.0 1 ;  %  initial  Euler  angle  rates  (radians/sec) 

Sl=sin(phi_0/2);  S2=sin(theta_0/2);  S3=sin(psi_0/2);% 

Cl=cos(phi_0/2);  C2=cos(theta_0/2);  C3=cos(psi_0/2);% 

ql=Sl*C2*C3-Cl*S2*S3;  %  Euler  quaternion  elements  for  3,2,1  sequence 

q2=Cl*S2*C3+Sl*C2*S3; 

q3=Cl*C2*S3-Sl*S2*C3; 

q4=Cl*C2*C3+Sl*S2*S3; 

q=[ql  q2  q3  q4]’;  %  Euler  quaternion  vector;  Leonard  notes  p  27 

wx=phidot-psidot*S2-wO*S3*C2;  %  angular  velocity  vector  elements  Leonard 

notes  p  40 

wy=thetadot*C  l+psidot*C2*S3-wO*(C3*C  1+S3*S2*S  1); 

wz=psidot*  C2  *  C 1  -thetadot*  S 1  -  wO  *(S3*S2*C1-C3*S1); 

w=[wx  wy  wz]';  %  angular  velocity  vector  Sidi  p  89 

h0=lmoi*w;  %  angular  momentum  vector  Sidi  p  89 
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%%%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%% 


%  uncorrected  Gaussian  Coefficient  'g'  and  ’h';  units:  (nanoTesla): 

%  n  degree  range  from  1-10  and  m  order  range  from  0-10 
g_initial=[-29615  -1728  00000000  0;  %2000  IGRF  g  coef  ref  (1) 

-2267  3072  1672  0000000  0; 

1341  -2290  1253  715  0  00  00  00; 

935  787  251  -405  110  00  00  00; 

-217  351  222  -131  -169  -12  0  0  0  0  0; 

72  68  74  -161  -5  17  -91  00  00; 

79  -74  0  33  9  7  8  -2  0  0  0; 

25  6-9  -8  -17  9  7  -8  -7  0  0; 

5  9  3  -8  6-9  -2  9-4-8  0; 

-2  -62  -3  04  1  24  0-1]; 


g_correct_factor=5*[14.6  10.7  0  0  0  0  0  0  0  0  0;  %  2005  IGRF  g  coef  correction  factor 

-12.4  1.1  -1.1  0  0  0  0  0  0  0  0;  %  which  is  multiplied  by  scaler  5 

0.7  -5.4  0.9  -7.7  0  0  0  0  0  0  0;  %  for  each  year  from  2000 
-1.3  1.6  -7.3  2.9  -3.2  0  0  0  0  0  0;%  same  concept  for  h  correction 
0-0.7 -2.1  -2.8  -0.82.5  0  00  00; 

1  -0.4  0.9  2  -0.6-0.3  1.2  00  00; 

.0.4  -0.4  -0.3  1.1  1.1  -0.2  0.6  -0.9  0  0  0; 

-0.3  0.2  -0.3  0.4  -1  0.3  -0.5  -0.7  -0.4  0  0; 

0000000000  0; 

0000000000  0]; 

g=g_initial+g_correct_factor;  %IGRF2000  g  coefficient  corrected  to  2005 

h_initial=[0  5186  000000000;  %  2000  IGRF  h  coef 

0  -2478  -458  0000000  0; 

0  -227  296  -492  0  0  0  0  0  0  0; 

0  272  -232  119-3040  00  00  0; 

0  44  172  -134  -40  107  00  00  0; 

0  -17  64  65  -61  1  440  00  0; 

0  -65  -24  6  24  15  -25  -6  0  0  0; 

0  12  -22  8  -21  15  9-16  -3  0  0; 

0  -20  13  12  -6-8  94-8  5  0; 

0  1  045  -6-1  -3  0  -2  -8]; 


h_correct_factor=5*[0  -22.5  00000000  0;  %h  coefficient  correction  factor 
0  -20.6  -9.6  0000000  0; 

0  6  -0.1  -14.2  0  00  00  00; 

0  2.1  1.3  5  0.3  00  00  00; 

0-0.1  0.6  1.7  1.90.1  0  00  00; 

0-0.2  -1.4  0-0.8  00.90  00  0; 

0  1.1  0  0.3  -0.1  -0.6-0.7  0.2  0  0  0; 

0  0.1  0  0  0.3  0.6  -0.4  0.3  0.7  0  0; 
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0000000000  0; 
0000000000  0]; 


h=h_initial+h_correct_factor;  %  IGRF2000  h  coefficient  corrected  to  2005 

%%%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%% 

%  look  up  tables  for  colatitude  and  longitude  increments  for  calculations 
%  adapted  from  Leonard  Code 

delta_theta=2;  %  colatitude  increment  (theta)  co-latitude  increments  of  2  de¬ 

grees 

theta_min=-90;  %  south  pole 

theta_max=90;  %  north  pole 

Jmax=(theta_max-theta_min)/delta_theta;  %  max  value  of  J  index;  90-(-90)/2=90  values 

delta_phi=5;  %  longatude  increment  allows  for  complete  coverage  over  entire 

Earth  circumference 

phi_min=-180;  %  west  longitude 

phi_max=180;  %  east  longitude 

Imax=(phi_max-phi_min)/delta_phi;%  max  value  of  I  index  ;180-(-180)/5=72  values 


for  J=l:Jmax+l; 
for  I=l:Imax+l; 

theta(J)=(J-l)*delta_theta*pi/180;  %  increment  theta(co-latitude)  values  in  radians 
beginning  at  the  90deg  north 

theta_vector(J)=theta_min+(J-l)*delta_theta;  %  theta  vector  (look  up  tables  for  Mag 
Field  Model) 

phi(I)=(phi_min+(I-l)*delta_phi)*pi/180;  %increment  phi  values  in  radians 
phi_vector(I)=phi_min+(I-l)*delta_phi;  %  phi  vector  (look  up  tables  for  Mag 

Field  Model) 

end  %  end  J  loop 

end  %  end  I  loop 


C_theta=cos(theta); 
S_theta=sin(theta); 
if  S_theta==0 
S_theta=eps; 
end 

C_phi=cos(phi); 

S_phi=sin(phi); 


%  sine  and  cosine  of  theta;  tables 

%  loop  to  prevent  singularity  caused  by  division  by  zero 


%  sine  and  cosine  of  phi 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


Snm=zeros(10,l  l);Gnm=zeros(10,l  1);  Pnm=zeros(10,l  1);  %  initialize  the  Pnm 

matrix  with  zeros 

part_m=zeros(10,l  1);  part_n=zeros(10,l  1);  part_nm=zeros(10,l  1);  %initialize 

partial  derivative 
matrices 


%  initialization  of  B  field  matrix  components 
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B_r=zeros(J,I);  B_theta=zeros(J,I);  B_phi=zeros(J,I);  B_field=zeros(J,I); 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


for  I=l:Imax+l  %Loop  for  longitude;  steps  from  1  to  73  thus  72  values 

for  J=l:Jmax+l  %Loop  for  co-latitude;  steps  from  1  to  91  thus  90  alues 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Calculation  of  Kronecker  delta  function 

for  n=  1 : 1 0  %  1 0th  degree  index 

for  m=0:n 

if  m==l  %  calculation  of  Kronecker  delta 

Kdelta=l; 
else 

Kdelta=0; 

end  %  end  Kronecker  if  loop 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Calculation  of  S  ratio 


if  m==0 


if  n==l 


Snm(n,m+l)=l; 

else 

Snm(n,m+ 1  )=Snm(n- 1  ,m+ 1 )  *  (2  *n- 1  )/n; 
end 
else 

Snm(n,m+l)=Snm(n,m)*sqrt((n-m+l)*(Kdelta+l)/(n+m)); 
end  %  end  S  ratio  if  loop 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Calculation  of  Gauss  Normalization  matrix. 
Gnm(n,m+ 1  )=Snm(n,m+ 1 ) .  *  g(n,m+ 1 ); 
Hnm(n,m+ 1  )=Snm(n,m+ 1 ).  *h(n,m+ 1 ); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Legendre  function  (K)  equation  H-9:  Wertz  p.781 
if  n==l  %  if  n  =1  K  =  0 
Knm=0; 
else 

Knm(n,m+l)=(((n-l)A2-mA2)/((2*n-l)*(2*n-3)));%  for  n  >  1 
end 


%  Leonard  USED  Km  =  tril(Km,l)  when  the  matrix  evals  to  this  form; 
end  %  end  of  m,n  loops 

end 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Recursive  Legendre  function  (P)  equation  H-8:  Wertz  p.  78 1  ok  4/19/04 
for  n=l :  10  %  counter  loops  on  n  and  m 
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%  Pk  is  the  P(n-l,m)  term. 

%  Pn  is  the  P(n-l,n-l)  term  for  the  0,0  case. 


for  m=0:n 
if  (n- 1=0) 

Pm=l; 

Pn=l; 
else 

Pm=Pnm(n- 1  ,m+ 1 );  %  All  other  cases 

Pn=Pnm(n- 1  ,(n- 1 )+ 1 );  %  + 1  on  the  indexing  to  account  for  starting  the 

%  columns  at  1  not  0 
end 


Pk=0; 

if  (n==2)  &  (m==0) 
Pk=l; 
elseif  (n>2) 

Pk=Pnm(n-2,m+ 1 ); 
end 


%  Pk2  is  the  P(n-2,m)  term.  Not  defined  for  n<2 
%  For  when  P(n-2,m)  is  P(0,0) 

%  All  other  cases 


if  (n=m) 

Pnm(n,m+l)=S_theta(J)*Pn; 

else 

Pnm(n,m+ 1  )=C_theta(J)*Pm-Knm(n,m+ 1  )*Pk; 
end 

end  %  end  recursive  P  Legendre  function  for  loop 

end 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  recursive  partial  derivatives  calculation  Wertz  p.  781  equation  H-10 

% 


for  n=  1:10 
for  m=0:n 
if  (n- 1  )==0 

part_m=0 ;  %  partial  derivative  (n- 1  ,n- 1 )  term 

part_n=0;  %  partial  derivative  (n-l,m)  case 

Pm=l; 

Pn=l; 

else 

part_m=part_nm(n- 1  ,m+ 1 ); 
part_n=part_nm(n- 1  ,(n- 1 )+ 1 ); 

Pm=Pnm(n- 1  ,m+ 1 ); 

Pn=Pnm(n- 1 ,  (n- 1 )+ 1 ) ; 
end 


part_k=0;  %  part_k  is  the  partial  P(n-2,m)  term.  Not  defined  for  n<2 

if  (n==2)  &  (m==0) 

part_k=0;  %  when  partial  P(n-2,m)  =  (0,0) 

elseif  (n>2) 
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part_k=part_nm(n-2,m+l);  %  All  other  cases 
end 


if  n==m 

part_nm(n,m+l)=(S_theta(J)*part_n)+(C_theta(J)*Pn); 

else 

part_nm(n,m+l)=(C_theta(J)*part_m)-(S_theta(J)*Pm)-Knm(n,m+l)*part_k; 

end 

end  %  end  partial  derivative  for  loop 

end 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Calculation  of  Single  Dipole  Magnetic  Field  Approximation 


Kme=(Re/r)A3*sqrt(g(l,l)A2+g(l,2)A2+h(l,2)A2)H5le-9;  %  dipole  approximation  (nanoTesla) 
sigma=atan(h(l,2)/g(l,2));  %longitude  of  magnetic  dipole  (l*e-9  values  canx) 
epsilon=pi-acos(g(l,l)/sqrt(g(l,l)A2+g(l,2)A2+h(l,2)A2));  %  colatitude  of  magnetic 

dipole  (l*e-9  values  canx) 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  State  space  model  xdot=Ax+Bu+Gw,  w  =  disturbance 
%  AA3818  Class  notes  p.66-70 

ka=[. 02863  .01534  .1309];  %  actuator  gains;  assumed  Leonard's  values  correct 

sat=30;  %  saturation;  assumed  Leonard's  values  correct 

A=[0  0  0  1  0  0; 

0  0  0  0  1  0; 

00  00  0  1; 

-4*w0A2*al/Ixx  0  0  0  0  w0*a0/lxx; 

0  -3*wOA2*a2/Iyy  0  0  0  0; 

0  0  -wOA2*a3/Izz  -w0*a0/lzz  0  0]; 

B=Kme*[0  0  0; 

0  0  0; 

0  0  0; 

ka(l)/Ixx  0  0; 

0  ka(2)/Iyy  0; 

0  0  ka(3)/Izz]; 

G=[0  0  0; 

0  0  0; 

0  0  0; 

1/Ixx  0  0; 

0  1/Iyy  0; 

0  0  1/Izz]; 

Qx=l  10*eye(6); 

Ru=l*[.l  0  0;0  .095  0;0  0  .008];  %  LQR  weighting  matrices;  assumed  Leonard's 

values  correct 

[K,S,e]=lqr(A,B,Qx,Ru);  %  LQR  gain  calculations 
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Aaa=A(l:3,l:3);  Aab=A(l:3,4:6);  Aba=A(4:6,l:3);  Abb=A(4:6,4:6); 
%  AA3818  notes  p  69-70 
Ba=B(l:3,l:3);  Bb=B(4:6,l:3); 

Ka=K(l:3,l:3);  Kb=K(l:3,4:6); 

Ga=G(l:3,l:3);  Gb=G(4:6,l:3); 

Lr=0.09*diag([l  .5  .6]);  %  Estimator  gain  by  simulation 

%  Assumed  Leonard  values  correct 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Table  inputs  for  average  actuator  gains  vs.  inclination:  assumed 
%  Leonard's  values  were  correct;  need  to  determine  if  these  are  the  same 


%  with  my  model 

Inclination=[0.01  10  20  30  40  50  60  70  80  90  100  1 10  120]*pi/180; 
gx=[.967  .955  .922  .876  .826  .78  .739  .709  .691  .686  .691  .709  .739]; 
gy=[0.0001  .0678  .256  .46  .632  .762  .857  .923  .965  .981  .965  .923  .857]; 
gz=[.804  .781  .711  .614  .522  .446  .39  .353  .335  .333  .335  .353  .39]; 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  Calculation  of  B  field  components  (unit:  Wb*m) 

%  Magnetic  Field  calculation  for  geocentric  distance 
for  n=l:  10 

Br_innersum=0;  %  initialize  sum  for  geocentric  distance 
Btheta_innersum=0;  %  initialize  sum  for  coelevation  mag  field  measurement 
Bphi_innersum=0;  %  initialize  sum  for  longitude  magnetic  field  measurement 


%  partial  calculation  of  B  field  components  using  Wertz  equation  H-12, 
for  m=0:n 


Br_innersum=Br_innersum+(Gnm(n,m+l)*cos(m*phi(I))+Hnm(n,m+l)*sin(m*phi(I)))*Pnm( 

n,m+l); 

Btheta_innersum=Bthcta_innersum+(Gnm(n,m+ 1  )*cos(m*phi(I))+Hnm(n,m+ 1  )*sin(m*phi(I)) 
) *part_nm(n,m+ 1 ); 

Bphi_innersum=Bphi_innersum+(m*(- 

Gnm(n,m+l)*sin(m*phi(I))+Hnm(n,m+l)*cos(m*phi(I))))*Pnm(n,m+l); 

end 


%  B  field  components  summation  using  Wertz  equation  H-12 

B_r(J,I)=B_r(J,I)+((Re/r)A(n+2))*(n+l)*Br_innersum;  %  radial  component 

(outward  positive) 

B_theta(J,I)=B_theta(J,I)+((Re/r)A(n+2))*Btheta_innersum;  %  coelevation 

component  (south  positive) 

B_phi(J,I)=B_phi(J,I)+((Re/r)A(n+2))*Bphi_innersum;  %  azimuthal  or 

longitudnal  component  (east  posi¬ 
tive) 
end 
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%  gain  calculations 


B_theta(J,I)=-B_theta(J,I); 

B_phi(J,I)=(-l/S_theta(J))*B_phi(J,I); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


end  %  ending  co-lat/long  for  J  &  I  loops 

end 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  calculation  of  Earth's  Magnetic  Field  based  upon  Br,  Btheta,  Bphi 


B_field=sqrt(B_r .  A2+B_theta.  A2+B_phi .  A2) ; 
%  end  Earth  magnetic  model  calculations 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


format  short  g 
V=20000:2000:50000; 

figure(  1)  %  plot  Earth's  Magnetic  Field  Model  using  theta,  phi  and  B_field 

c=contour(phi_vector,fliplr(theta_vector),B_field,V);grid  on 


clabel(c); 

title('2005  IGRF  Magnetic  Field  Total  Intensity  at  600  KM  Above  the  Earth  (2000nT  Incre¬ 
ments)')  ; 

xlabel  ('Longitude  in  Degrees'); 
ylabel  ('Latitude  in  Degrees'); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%sim('acs_eric') 
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APPENDIX  C.  NPSAT1  ACS  MODEL  L  MATLAB  PROGRAM  [FROM 

REF.  9.] 


This  Appendix  contains  the  original  NPSAT1  attitude  control  system  MATLAB  pro¬ 
gram  written  by  Leonard.  This  program  was  verified  and  validated  by  the  program  in  Appendix 
B. 

%NPSAT1  ACSData  (pages  C1-C4) 

clear 

tic 

Re=637L2e3;mu=398601.2e9;we=7.2921e-5;%earth  radius,  gravity  and  spin  rate 
Altitude=[450  500  550  600  650  700  750  800]*  le3;%look  up  table  data  for 

aero 

Density=[36.1  18  9.25  4.89  2.64  1.47.837  .439]*  le-13;%max  density  table  data 

%Density=[l  1.3  4.89  2.21  1.04  .515.272  .155  .0963]*  le-13;%mean  density  table 

data 

h=600e3;incln=(35)*pi/180;beta=15*pi/180;%altitude,inclination,  solar  angle 
nuo=-l  15*pi/180;alphao=0*pi/180;%initial  subsolar  point  and  true  anomaly 
Lgo=0;%initial  position  of  Greenwich  Meridian  WRT  RAAN 
kpre=-9. 9639/24/3600/1 80*pi;  %nodal  precession  constant  assumed  to  be  zero  here 
wn=kpre*(Re/(Re+h))A3.5*cos(incln);%nodal  precession  (zero  eccentricity) 
wo=sqrt(mu/(Re+h)A3);V=wo*(Re+h);  %orbital  angular  and  linear  velocity 
rho=asin(Re/(h+Re));  %earth  angular  radius 

Cd=2.5;psun=4.5e-6;%drag  coefficient  and  solar  pressure  constant~N/mA2 
Kaero=0 . 5  *  Cd*  VA2 

Psolar=2*psun;  %  constants  for  aero  and  solar  torque  calc. 

Area=[0.2674  0.2674  .1927];  %projected  area~mA2  in  body  x,y,z  directions 
dL=[.002  .002  .008];  %predicted  (cp-cm)~m  in  body  x,y,z  directions 

Ix=5;Iy=5.1;Iz=2;Ixy=0;Ixz=0;Iyz=0;  %  moments  of  inertia  (MOI)~kg.mA2 
Imoi=[Ix  -Ixy  -Ixz;-Ixy  Iy  -Iyz;-Ixz  -Iyz  Iz];  %MOI  matrix 
Iinv=inv(Imoi);  %MOI  matrix  inverse 

ao=Ix-Iy+Iz;al=Iy-Iz;a2=Ix-Iz;a3=Iy-Ix;%MOI  combination  constants 

pho=-.  1  ;tho=.  1  ;pso=-.  1 ;  %initial  Euler  angles  (phi,theta,psi)  ~r 
phdo=-0. 1  ;thdo=0. 1  ;psdo=0.0 1 ;  %  initial  Euler  angle  rates  ~r/s 
%phdo=0;thdo=0;psdo=0;  %  initial  Euler  angle  rates  ~r/s 

%calculation  of  initial  quaternion  (qo)  and  angular  momentum  (Ho): 
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sl=sin(pho/2);s2=sin(tho/2);s3=sin(pso/2);cl=cos(pho/2);c2=cos(tho/2); 
c3=cos(pso/2);  q  1  o=s  1  *c2*c3-c  1  *s2*s3 ;q2o=c  1  *s2*c3+s  1 *c2*s3  ;%Wie  pg.32 1 
q3o=cl*c2*s3-sl*s2*c3;q4o=cl*c2*c3+sl*s2*s3; 

Sl=sin(pho);S2=sin(tho);S3=sin(pso);Cl=cos(pho);C2=cos(tho);C3=cos(pso); 
wxo=phdo-psdo*S2-wo*S3*C2; 
wyo=thdo*Cl+psdo*C2*Sl-wo*(C3*Cl+S3*S2*Sl); 
wzo=psdo  *  C2  *  C 1  -thdo  *Sl-wo*(S3*S2*Cl-C3*Sl); 
qo=[qlo  q2o  q3o  q4o]; 

Ho=Imoi*[wxo  wyo  wzo]’; 

%Calculation  of  spherical  hannonic  magnetic  field  model  (Wertz  pp779-783) 
r=Re+h;a=Re;  %definitions  to  match  Wertz  pg  780 

%  IGRF  Epoch  2000  Guassian  coefficients  ~  n.T  : 
gg=[-29615  -1728  0  0  0  0  0  0  0;-2267  3072  1672  0  0  0  0  0  0;... 

1341  -2290  1253  715  0  0  0  0  0;935  787  251  -405  110  0  0  0  0;... 

-217  351  222  -131  -169  -12  0  0  0;72  68  74  -161  -5  17  -91  0  0;... 

79  -74  0  33  9  7  8  -2  0;25  6  -9  -8  -17  9  7-8  -7]; 
hh=[0  5186  0  0  0  0  0  0  0;0  -2478  -458  0  0  0  0  0  0;... 

0  -227  296  -492  0  0  0  0  0;0  272  -232  1 19  -304  0  0  0  0;... 

0  44  172  -134  -40  107  0  0  0;0  -17  64  65  -61  1  44  0  0;... 

0  -65  -24  6  24  15  -25  -6  0;0  12  -22  8  -21  15  9  -16  -3]; 

Kme=(a/r)A3*sqrt(gg(  1 ,  l)A2+gg(  1 ,2)A2+hh(  1 ,2)A2)*  le-9;%dipole  strength-Tesla 

ka=[. 02863  .01534  . 1 309] ;sat=30;%actuator  gains  and  saturation 
%ka=[.03  .02  .12];  sat=30; 

%Calc  of  state  space  A,B,G  matrices  follows  (xdot=Ax+Bu+Gw,w=disturbance) 
A=[0  0  0  1  0  0;0  0  0  0  1  0;0  0  0  0  0  l;-4*woA2*al/Ix  0  0  0  0  wo*ao/Ix;... 

0  -3*woA2*a2/Iy  0  0  0  0;0  0  -woA2*a3/Iz  -wo*ao/Iz  0  0]; 

B=Kme*[0  0  0;0  0  0;0  0  0;ka(l)/lx  0  0;0  ka(2)/Iy  0;0  0  ka(3)/Iz]; 

G=[0  0  0;0  0  0;0  0  0;1/Ix  0  0;0  1/Iy  0;0  0  1/Iz]; 

C=[eye(3),zeros(3)]; 


Qx=l  10*eye(6);  Ru=l*[.l  0  0;0  .095  0;0  0  .008];  %LQR  weighting  matrices 
%Qx=l  10*eye(6);  Ru=.l*[.l  0  0;0  .095  0;0  0  .008];  %LQR  weighting  matrices 
[K,S,e]=lqr(A,B,Qx,Ru);  %LQR  gain  calculation 

%partitioning  of  A,B,G  matrices  required  for  reduced  order  estimator: 

Aaa=A(  1:3,1 :3);Aab=A(  1 :3,4:6);Aba=A(4:6, 1 :3);Abb=A(4:6,4:6); 

Ba=B(  1:3,1 :3);Bb=B(4:6, 1 :3);Ka=K(l  :3, 1 :3);Kb=K(  1 :3,4:6); 

Ga=G(l:3,l  :3);Gb=G(4:6, 1 :3); 

Lr=0.09*diag([l  .5  .6]);  %Estimator  gain  found  by  simulation 
%Lr=0 .08*.  1  *diag([l  1  .5]) 
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del_t=5;tmin=0;tmax=180;%colatitude  increment,  min,  max  (theta) 
Jmax=(tmax-tmin)/del_t;  %  max  value  of  J  index 
del_p=10;pmin=-180;pmax=180;  %longitude  increment,  min,  max  (phi) 
Imax=(pmax-pmin)/del_p;  %max  value  of  I  index 

for  J=l:Jmax+l; 

t=(J-l)*del_t*pi/180;Ct=cos(t);St=sin(t);  %sine  &  cosine  of  theta 
th(J)=(J-l)*del_t;  %theta  vector  (look  up  tables  Mag  Fid  Model) 
for  I=l:Imax+l; 

p=(pmin+(I-l)!|5del_p)*pi/180;Cp=cos(p);Sp=sin(p);%sin  &  cos  phi 
phi(I)=pmin+(I-l)*del_p;%phi  vector  (look  up  tables  Mag  Fid  Model) 
%  Calculation  of  Legendre  function  constant  (Km)  follows 
for  i=l:8 
for  j=l:i+l 

Km(i,j)=((i-l)A2-(j-l)A2)/(2*i-l)/(2*i-3); 
if  i==l ;  Km=0;end 
end 
end 

Km=tril(Km,l); 

%Calculation  of  Legendre  function  (P)  follows 
for  i=l:8 
for  j=l:i+l 
P(U)=Ct; 

if  i==  1  &  j==2;P(i,j)=St*l;end 

if  i>l  &  j==i+ 1  ;P(i,j)=St*P(i- 1  ,j-  l);end 

if  i==2;Pk=l;end; 
if  i>2;Pk=P(i-2,j);end 

if  i>l  &  j~=i+l;P(i,j)=Ct*P(i-l,j)-Km(i,j)*Pk;end 
end 
end 

P=tril(P,l); 

%  Calculation  of  partial  of  Legendre  function  WRT  theta  (dp)  follows 
for  i=l:8 
for  j=l:i+l 
dp(U)=-St; 

if  i==l  &  j==2;dp(i,j)=St*0+Ct*  1  ;end 

if  i>l  &  j==i+ 1  ;dp(i,j)=St*dp(i- 1  ,j-  l)+Ct*P(i- 1  ,j-  l);end 

if  i==2;dpk=0;end; 

if  i>2;dpk=dp(i-2,j);end 

if  i>l  &  j~=i+ 1  ;dp(i,j)=Ct*dp(i- 1  ,j)-St*P(i- 1  ,j)-Km(i,j)*dpk;end 
end 
end 
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dp=tril(dp,l); 


%  Calculation  of  Gausian  coefficient  norm,  factor  (S)  follows 
for  i=l:8 
for  j= 1:9 

dm=0;if  j==2;dm=  1  ;end 
if  j=l  &  i==l ;  S=  fiend 
if j==l  &  i~=l;S(i,j)=S(i-fij)*(2*i-l)/i;end 
if  j>fiS(i,j)=S(i,j-l)*sqrt((i-(j-l)+l)*(dm+l)/(i+(j-l)));end 
end 
end 

S=tril(S,l); 

%Calculation  of  normalized  Gaussian  coefficients  ~  n.T  : 
Gg=S.*gg;  Hh=S.*hh; 


for  i=l:8 
j=l:i+l;m=j-l; 

F(i,j)=Gg(i,j).*cos(m*p)+Hh(i,j).*sin(m*p);  %definition 
end 

for  i=l:8 
j=l:i+l;m=j-l; 

f(i,j)=m.*(-Gg(i,j).*sin(m*p)+Hh(i,j).*cos(m*p));%  definition 
end 

if  St==0;  St=0.001;  ;end  %singularity  avoidance  in  following  loop 
%Calculation  of  altitude  dependent  coefficients  follows 
for  i=l:8 

aa  1  (i)=(i+ 1  )*(a/r)A(i+2);  aa2(i)=-aa  1  (i)/(i+ 1 );  aa3(i)=aa2(i)/St; 
end 

%Calculation  of  radial, theta  and  phi  magnetic  field  componcnts-Tesla 
FPS=sum((F.*P)')'  ;  Bl=aal'.*FPS;  Br8=sum(Bl)*le-9; 
FdpS=sum((F.*dp)')';  B2=aa2'.*FdpS;  Bt8=sum(B2)*le-9; 
fPS=sum((f.*P)')'  ;  B3=aa3'.*fPS;  Bp8=sum(B3)*le-9; 

%Calculation  of  normalized  field  commponents  (input  to  lookup  tables) 

br8(I,J)=Br8/Kme; 

bt8(I,J)=Bt8/Kme; 

bp8(I,J)=Bp8/Kme; 

%Calculation  of  field  vector  nonnalized  magnitude: 
b8(I,J)=(Br8.A2+Bt8.A2+Bp8.A2).A0.5/Kme; 

end  %end  I  loop 
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end  %end  J  loop 

%  Table  inputs  for  average  actuator  gains  vs  inclination  follows: 

Inclination=[0.01  10  20  30  40  50  60  70  80  90  100  1 10  120]*pi/180; 
gx=[.967  .955  .922  .876  .826  .78  .739  .709  .691  .686  .691  .709  .739]; 
gy=[0.0001  .0678  .256  .46  .632  .762  .857  .923  .965  .981  .965  .923  .857]; 
gz=[.804  .781  .711  .614  .522  .446  .39  .353  .335  .333  .335  .353  .39]; 

format  short  g 
V=20000:2000:50000; 

figure(  1)  %  plot  Earth's  Magnetic  Field  Model  using  theta,  phi  and  B_field 

c=contour(phi,th,b8,V);grid  on 

%  clabel(c); 

%  title(’2005  IGRF  Magnetic  Field  Total  Intensity  at  600  KM  Above  the  Earth  (2000nT  In¬ 
crements)')  ; 

%  xlabel  ('Fongitude  in  Degrees'); 

%  ylabel  ('Fatitude  in  Degrees'); 


toe 
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APPENDIX  D.  NPSAT1  SOLENOID  CROSS-SECTIONAL  VIEW 

[FROM  REF.  8.] 


This  Appendix  displays  the  cross-sectional  view  of  the  MICROCOSM  magnetic  torque 
rods  tested  by  this  thesis. 
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View:  X-Z-Plooe  Identification  A  Marking  Label  View:  Y-Z-Plone 

(see  Note  4o) 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK 
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APPENDIX  E.  NPSAT1  ACS  SIMULINK  MODEL  H 


This  Appendix  displays  the  overall  and  sub-models  developed  in  SIMULINK  to  verify 
Leonard’s  ACS  model  and  control  program.  Sub-models  shown  include  the  spacecraft  external 
disturbance  torques,  kinematics,  dynamics,  and  ACS  control  laws. 


Figure  E.l  NPSAT1  Magnetic  Attitude  Control  System  SIMULINK  Mod* 

[After  Ref.  9.1 


NPSAT1  ACS  MODEL  H 


Solar  and  Aeorodynamic  Disturbance  Torques 


The  upper  part  of  this  block  apprximates  the  solar  torques  using: 
Ms  =  [Msx  Msy  Msz]'  =[dL]xFsb 

where:  dl_=  [dl_x  dlY  dl_z]‘  =  cp- cm  for  x.  y.  z  respectively 
Fsb=[Fsx  Fsy  Fsz]'=Psolar5'[Area]' 

Rsolar=  solar  pressure  =  9e-6  N/mA2 

Area=[Ax  Ay  Az]  see  M-file  for  data 

The  out  components  of  the  "Sun"  block  "sb"  is  set  to  zero 

during  eclipse  to  remove  solar  torques. 

The  right  side  of  the  lower  part  approximates  a  day-  night 
density  variation  given  by:  1  .S'XCnuC  beta-1)  (see  pg  B6). 

The  table  look  up  function  (Density  vs  Altit.)  contains  the  max 
density  (high  noon,  beta  =0  data)  and  Kaero=(Cd*VA2y2 
(Cd  =2.5  and  V=velocity=wo(Re+h)).  The  output  of  the  multiplier 
.Pao.  represents  the  aero  pressure  in  orbital  coordinates.  The 
outout  of  the  next  multiplier  represents  the  areo  pressure  on  the 
x,  y  and  z  body  body  faces  respectively,  the  output  of  the  next 
multiplier  .Fab,  represents  the  aero  force  on  the  x.  y.  and  z  faces. 
Finally  the  cross  product  of  dL  and  Fab  gives  the  aero  moment. 
Ma  =  [Max  May  Maz]'=[dL]xFab 


^verified  3/1/04  EWH  NPS,  Monterey,  CA 

Figure  E.2  NPSAT1  Solar  and  Aero  Disturbance  Torque  Sub-Model 

[After  Ref.  9.] 


Gravity  Gradient  Torque 


verified  4/20/04  EWH,  NPS,  Monterey,  CA 


Figure  E.3  NPSAT1  Gravity-Gradient  Disturbance  Torque  Sub-Model  [After  Ref.  9.] 
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Dynamics 


Xp  rod 

verified  4/20/04  EWH,  NPS,  Monterey,  CA 

Figure  E.4  NPSAT1  Dynamics  Sub-Model  [After  Ref.  9.] 


Kinematics:  Quaternion  Calculations 


Kinematics:  Quarternion 

Forms  quaternion  vector  q  =  [ql  q2  q3  q4]  from  the  angular  velocity  of  the  body 
with  respect  to  the  orbital  reference  frame  using: 

q1dot=0.5*[q2w3-q3w2*q4w1] 
q2dot=0.5*|-q1w3+q3w1+q4w2] 
q  3d  ot=  0 . 5*[q  1  w2— q  2  wl  +q4w3] 
q4dot=0.5*[q1w1-q2w2-q3w3] 

0_B 

W  =  [wl  w2  w3]' 

N_0 

W=  [0  -wO  0]' 

N_B 

W=[wxwywz]'=0_B  +[0  C12  0;  0  C22  0|  0  c32  0]*N_O 
W  W 

0_B  N_B  N_0 
W=  W  -  W 


verified  4/20/04  EWH,  NPS,  Monterey,  CA 


Figure  E.5  NPSAT1  Kinematics  Sub-Model  [After  Ref.  9.] 
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Kinematics:  Direction  Cosine  Matrix: 


B_0 

C  =  [c  i  j]= [  q 1 A2- q  2A2-  q  3A2 + q  4A2  2(q1q2+q3q4) 


2(q1q2-q3q4) 
2(q1  q3+q2q4) 

q1=S1  C2C3-C1 S2S3 
q2=C1  S2C3+S1 C2S3 
q3=C1  C2S3-S1 S2C3 
q4=C1  C2C3+S1 S2S3 
q=[q1  q2  q3  q4] 


q  2A2-  q  1 A2-  q  3A2 + q  4A2 
2(q2q3-q1  q4) 

S=sin()  1=  phi/2 

C=cos()  2=  theta/2 

3= p  si/2 


Verified  3/8/04  EWH  NPS  Monterey,  CA 


2(q1q3-q2q4) 
2(q2q3+q1  q4) 
q  3A2-  q  1 A2-  q  2A2 + q  4A2] 


Figure  E.6  NPSAT1  Kinematics-Direction  Cosine  Matrix  Sub-Model 

[After  Ref.  9.] 

SUN  &  ECLIPSE  CONSIDERATIONS 


The  right  side  of  this  block  transforms  the  sun  vector  into  orbital  coordinates  using: 
sxo  =  -Cbeta'Snu 
syo  =  -Sbeta 
szo  =  -Cbeta’Cnu 

The  left  side  of  this  transforms  the  sun  vector  in  orbital  coordinates  into  body  coordinates  using: 
sbx=  cl  1sxo+c12syo+c13szo 
sby=  c21sxo+c22syo+c23szo 
sbz=  c31ss<o+c32syo+c33szo 

The  relay  in  the  louver  part  of  this  block  outputs  a  "1"  in  sunlight  and  a  "0"  during  eclipse 
the  relay  is  driven  by  the  function  Cnu+(Cbeta)  /C rh o 

where:  beta  =  minimum  angle  between  the  sun  vector  and  the  orbit  plane  on  a  given  day 
nu  =  orbit  angle  between  the  satellite  and  the  subsolar  point 
rho  =  apparent  angular  radius  of  the  earth 
C  =  cosine  and  S  =  sine 

verified  3/1/04  EWH  NPS  Monterey,  CA 


Figure  E.7  NPSAT1  Solar  Eclipse  Sub-Model  [After  Ref.  9.] 
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TORQUES  REQUIRED 


This  block  produces  the  vehicle  torques  (Tsc=  mxB) 
verified  4/20r04  EWH,  NPS,  Monterey.  CA 

Figure  E.8  NPSAT1  Ordered  Torque  Sub-Model  [After  Ref.  9.] 


TORQUE  ROD  CONTROL  LAW 


This  block  uses  the  magnetic  actuator  control  law  giver  by  Sidi  (Ref  5  pg  129): 
mr=  BvTr/  BA2  where  B  is  the  magnetometer  output,  Tr  is  the  requested  control 
torque  and  mr=  [m:<r  myr  mzr]  is  the  requested  linear  magnetic  moment .  The 
saturation  blocks  which  follow  this  block  limit  the  magnetic  momen:  per  specs. 

verified  4/20/04  EWH.  NPS,  Mcnterey,  CA 

Figure  E.9  NPSAT1  Magnetic  Moment  Sub-Model  [After  Ref.  9.] 
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AVERAGE  TORQUE  GAINS 


kay/gz 


This  block  attempts  to  normalize  the  gain  of  each  channel  to  unity  by  dividing  by  the  orbit  average  gain 
(as suggested  in  Ref.  belouv). 

The  gain  ka  =  [kax  kay  kaz]  in  the  previous  block  is  a  function  of  moments  of  inertia.  The  best  value  of 
ka  is  determined  by  simulation. 

Reference:  Martel  Et.  Al.  "Active  Magnetic  Control  System  for  Gravity  Gradient  Stabilized  Spacecraft", 
26-28  September  1988,  Logan, UT,  pg  7. 

Verified  4/19/04  EWH  NRS,  Monterey,  CA 


Figure  E.10  NPSAT1  Torque  Gain  Normalization  Sub-Model  [After  Ref.  9.] 


B  x  b 


This  block  represents  an  approximation  to  the  position  part  of  the  quaternion  control  law. 

Sidi  (  Ref  5.  pg  166)  suggests  using  e  =  [q1q4  q2q4  q3q4]  as  an  attitude  error  vector.  The  cross 
Product  between  unit  B  and  unit  b  is  an  approximation  to  this  error  vector  for  magnetic 
magnetic  control  systems  where:  B  =  magnetometer  output  and  b  = 

predicted  magnetic  field  vector  based  on  emphemeris  data  and  a  spherical  harmonic  model 
verified  4/20/04  EWH.  NPS,  Monterey.  CA 


Figure  E.ll  NPSAT1  Attitude  Error  Sub-Model  [After  Ref.  9.] 
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MAGNETIC  FIELD  MODEL 


DEFINITIONS:  r.p.t  =  spherical  coordinates  r, phi, theta 

br.bp.bt  =  components  of  magnetic  field  vector  In  earth  fixed  coordinates 

bx,by,bz=components  of  magnetic  field  in  orbital  coordinates 

a  =  alpha  =  true  anomaly;  i  =  orbit  inclination;  g=  gamma  =  angle  between 

unit  phi  vector  and  unitxo  vector 

S  =  sine;  C=  cosine;  T=tangent 

we  =  earth  spin  rate;  wn  =  nodal  pression  rate;  t=  time 

lg=  Greenwich  meridian  with  respect  to  RAAN;  Igo  =  Ig  attime  equal  zero 

verified  4/20/04  EWH,  NPS,  Monterey,  CA 


bx=bpCg-btSg  br-br(p.t) 

by=bpSg+btCg  bP=bP  (P.9 

Pz=-br  bt=bt  (P.9 


Figure  E.12  NPSAT1  External  Magnetic  Field  Ephemeris  Table  Sub-Model  [After  Ref. 

9.] 


MAGNETIC  FIELD  TRANSFORMATION  from  ORBIT  to  BODY  COORDINATES 


This  blod<  transforms  the  magnetic  field  vector  in  orbital  coordinates  (b)  to  body  coordinates  (9) 

9x=  c11,'bx+c12’'by+c13’'bz 
By=  c21’,bx+c22"by+c23’'bz 
Bz  =  c3 1*  bxf  C32*  by+  c33*  bz 


Figure  E.13  NPSAT1  Magnetic  Field  Coordinate  Transformation  Sub-Model 

[After  Ref.  9.] 
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APPENDIX  F.  NPSAT1  ACS  SIMULINK  MODEL  L  [FROM  REF.  9.] 


This  Appendix  displays  the  SIMULINK  model  for  the  NPSAT1  attitude  control  system 
that  was  developed  by  Leonard  and  verified  by  this  thesis. 
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NPSAT1  ACS  SIMULINK  MODEL  L 
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APPENDIX  G.  NPSAT1  AIR-BEARING  LABORATORY  MAGNETIC 
FIELD  SURVEY  NO.  1  MATLAB  PROGRAM 


This  Appendix  contains  the  MATLAB  program  written  to  determine  the  coarse  mag¬ 
netic  field  that  resides  in  the  SSAG  laboratory. 


%  LCDR  Eric  W.  Herbert,  USN,  4/1/04 
%  Air  Bearing  Magnetic  Field  Determination 

%  Four  sets  of  meausrement  values  are  used.  A  5X7  grid  corresponds 
%  to  the  x  and  y  axis.  Z  is  characterized  by  4  heights. 

%  This  algorithm’s  purpose  is  to  load  the  measured  data, 

%  remove  the  magnetic  north  measurement  (not  required),  convert 
%  the  Honeywell  HM2300  Magnetometer  cooridinate  system  to  the 
%  cooridinate  system  laid  out  in  the  lab.  The  magnetometer  readings  are 
%  measured  in  counts.  These  are  converted  to  Tesla  by  the  equation: 

%  (counts(l  gauss/15000  counts)/ 1  tesla/10000  gauss).  Additionally,  it  will 
%  identify  the  number  of  samples  as  180.  This  is  from  approx  10  seconds  worth  of 
%  measurements.  The  samples  will  be  averaged  and  used  to  calculate  the 
%  magnetic  field  at  the  specific  grid  point.  field=  ilj  lzl(  1 : 180,1 :3); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


clear  all,  clc 

x=l:8;  y=l:6;  yy=rot90(y); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  %FLOOR  LEVEL 
%  load  measured  values 

load  iljlzl.txt;  load  i2jlzl.txt;  load  i3jlzl.txt;  load  i4jlzl.txt;  load  i5jlzl.txt;  load  i6jlzl.txt; 
load  i7jlzl.txt;  load  i8jlzl.txt 

load  ilj2zl.txt;  load  i2j2zl.txt;  load  i3j2zl.txt;  load  i4j2zl.txt;  load  i5j2zl.txt;  load  i6j2zl.txt; 
load  i7j2zl.txt;  load  i8j2zl.txt 

load  ilj3zl.txt;  load  i2j3zl.txt;  load  i3j3zl.txt;  load  i4j3zl.txt;  load  i5j3zl.txt;  load  i6j3zl.txt; 
load  i7j3zl.txt;  load  i8j3zl.txt 

load  ilj4zl.txt;  load  i2j4zl.txt;  load  i3j4zl.txt;  load  i4j4zl.txt;  load  i5j4zl.txt;  load  i6j4zl.txt; 
load  i7j4zl.txt;  load  i8j4zl.txt 

load  ilj5zl.txt;  load  i2j5zl.txt;  load  i3j5zl.txt;  load  i4j5zl.txt;  load  i5j5zl.txt;  load  i6j5zl.txt; 
load  i7j5zl.txt;  load  i8j5zl.txt 

load  ilj6zl.txt;  load  i2j6zl.txt;  load  i3j6zl.txt;  load  i4j6zl.txt;  load  i5j6zl.txt;  load  i6j6zl.txt; 
load  i7j6zl.txt;  load  i8j6zl.txt 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  B  field  calcula¬ 


tions  for  ilj lzl  through  i8j  lzl 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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n=[mean(i lj  1  z  1  ( 1 : 1 80, 1 :3))  mean(i2j  1  z  1  ( 1 : 1 80, 1 :3))  mean(i3j  1  z  1  ( 1 : 1 80, 1 :3)) 
mean(i4jlzl(l:  180,1:3))  mean(i5jlzl(l:  180,1:3))  mean(i6jlzl(l:180,l:3)) 
mean(i7j lzl ( 1 : 1 80, 1 :3))  mean(i8j  1  zl  ( 1 : 1 80, 1 :3)); 

mean(ilj2zl(l:  180,1:3))  mean(i2j2zl(l:  180,1:3))  mean(i3j2zl(l:  180,1:3)) 
mean(i4j2zl(l:  180,1:3))  mean(i5j2zl(l:  180,1:3))  mean(i6j2zl(l:180,l:3)) 
mean(i7j2z  1(1:180,1:3))  mean(i8j2z  1(1:180,1:3)); 

mean(ilj3zl(l:180,l:3))  mean(i2j3zl(l:  180,1:3))  mean(i3j3zl(l:180,l:3)) 
mean(i4j3zl(l:  180,1:3))  mean(i5j3zl(l:  180,1:3))  mean(i6j3zl(l:180,l:3)) 
mean(i8j3z  1(1:180,1:3))  mean(i8j3z  1(1:180,1 :3)); 

mean(i lj4zl ( 1 : 1 80, 1 :3))  mean(i2j4zl ( 1:180,1:3))  mean(i3j4zl ( 1:180,1:3)) 
mean(i4j4zl ( 1:180,1 :3))  mean(i5j4z  1(1:180,1:3))  mean(i6j4zl  ( 1:180,1 :3)) 
mean(i8j4zl(  1 : 1 80, 1 :3))  mean(i8j4zl(  1 : 1 80, 1 :3)); 

mean(i lj 5z  1  ( 1 : 1 80, 1 :3))  mean(i2j 5zl(l :  180,1 :3))  mean(i3j 5zl ( 1 : 1 80, 1 :3)) 
mean(i4j5z  1(1:180,1:3))  mean(i5j 5zl  ( 1 : 1 80, 1 :3))  mean(i6j5z  1(1:180,1:3)) 
mean(i8j5zl(l:  180,1:3))  mean(i8j5zl(l:180,l:3)); 

mean(i  1  j 6z  1  ( 1 : 1 80, 1 :3))  rnean(i2j6zl(  1 : 1 80, 1 :3))  mean(i3j6zl(l :  1 80, 1 :3)) 
mean(i4j6zl(  1 : 1 80, 1 :3))  mean(i5j6zl(  1 : 1 80, 1 :3))  mean(i6j6zl ( 1 : 1 80, 1 :3)) 
mean(i8j6zl(l  :1 80,1 :3))mean(i8j6zl(l:  180, 1:3))]; 


B_  1 1 1 =sqrt(n(  1 , 1  )A2+n(  1 ,2)A2+n(  1 ,3))/(  15000*10000); 
B_2 1  l=sqrt(n(  1 ,4)A2+n(  1 ,5)A2+n(  1 ,6))/(l  5000*  1 0000); 
B_3 1  l=sqrt(n(  1 ,7)A2+n(  1 ,8)A2+n(  1 ,9))/(l  5000*  1 0000); 
B_4 1 1 =sqrt(n(  1 , 1 0)A2+n(  1,11  )A2+n(  1 , 1 2 ))/( 15000*10000); 
B_5 1 1 =sqrt(n(  1 , 1 3)A2+n(  1 , 1 4)A2+n(  1 , 1 5))/(  15000*1 0000); 
B_6 1 1 =sqrt(n(  1 , 1 6)A2+n(  1 , 1 7)A2+n(  1 , 1 8))/(  15000*1 0000); 
B_7 1 1 =sqrt(n(  1 , 1 9)A2+n(  1 ,20)A2+n(  1 ,2 1 ))/( 15000*1 0000); 
B_8 1 1 =sqrt(n(  1 ,22)A2+n(  1 ,23)A2+n(  1 ,24))/(  15000*1 0000); 

B_  1 2 1 =sqrt(n(2 , 1  )A2+n(2,2)A2+n(2,3))/(  15000*10000); 
B_221=sqrt(n(2,4)A2+n(2,5)A2+n(2,6))/(l  5000*  10000); 
B_321=sqrt(n(2,7)A2+n(2,8)A2+n(2,9))/(l  5000*  10000); 
B_42 1 =sqrt(n(2, 1 0)A2+n(2, 1 1  )A2+n(2, 1 2))/(  15000*1 0000); 
B_52 1 =sqrt(n(2, 1 3)A2+n(2, 1 4)A2+n(2, 1 5))/(  15000*1 0000); 
B_62 1 =sqrt(n(2, 1 6)A2+n(2, 1 7)A2+n(2, 1 8))/(  15000*1 0000); 
B_721=sqrt(n(2,19)A2+n(2,20)A2+n(2,21))/(  15000*  10000); 
B_821=sqrt(n(2,22)A2+n(2,23)A2+n(2,24))/(  15000*  10000); 

B_  1 3 1 =sqrt(n(3 , 1  )A2+n(3 ,2)A2+n(3 ,3))/(  15000*10000); 
B_23 1 =sqrt(n(3 ,4)A2+n(3 , 5)A2+n(3 ,6))/(  15000*10000); 
B_3  3 1 =sqrt(n(3 ,7)A2+n(3 , 8)A2+n(3 ,9))/ (15000*10000); 
B_43 1 =sqrt(n(3 , 1 0)A2+n(3 , 1 1  )A2+n(3 , 1 2))/(  15000*10000); 
B_53 1 =sqrt(n(3 , 1 3)A2+n(3 , 1 4)A2+n(3 , 1 5))/(  15000*1 0000); 
B_63 1 =sqrt(n(3 , 1 6)A2+n(3 , 1 7)A2+n(3 , 1 8))/(  15000*10000); 
B_73 1 =sqrt(n(3 , 1 9)A2+n(3 ,20)A2+n(3 ,2 1 ))/( 15000*10000); 
B_83 1 =sqrt(n(3 ,22)A2+n(3 ,23)A2+n(3 ,24))/(  1 5000*  1 0000); 
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B  141  =sqrt(n(4, 1  )A2+n(4,2)A2+n(4,3))/(  15000*1 0000); 
B_241=sqrt(n(4,4)A2+n(4,5)A2+n(4,6))/(l  5000*  10000); 
B_34 1 =sqrt(n(4,7)A2+n(4, 8)A2+n(4,9))/ (15000*10000); 
B_44 1 =sqrt(n(4, 1 0)A2+n(4, 1 1  )A2+n(4, 1 2))/(  15000*1 0000); 
B_54 1 =sqrt(n(4, 1 3)A2+n(4, 1 4)A2+n(4, 1 5))/(  15000*1 0000); 
B_64 1 =sqrt(n(4, 1 6)A2+n(4, 1 7)A2+n(4, 1 8))/(  15000*1 0000); 
B_74 1 =sqrt(n(4, 1 9)A2+n(4,20)A2+n(4,2 1 ))/( 15000*1 0000); 
B_841=sqrt(n(4,22)A2+n(4,23)A2+n(4,24))/(  15000*  10000); 

B_  1 5 1 =sqrt(n(5 , 1  )A2+n(5 ,2)A2+n(5 ,3))/(  15000*10000); 
B_25 1 =sqrt(n(5 ,4)A2+n(5 ,5)A2+n(5 ,6))/(  15000*10000); 
B_3  5 1 =sqrt(n(5 ,7)A2+n(5 , 8)A2+n( 5 ,9))/ (15000*10000); 
B_45 1 =sqrt(n(5, 1 0)A2+n(5 , 1 1  )A2+n(5 , 1 2))/(  15000*1 0000); 
B_5  5 1 =sqrt(n(5 , 1 3)A2+n(5 , 1 4)A2+n(5 , 1 5))/(  15000*1 0000); 
B_65 1 =sqrt(n(5 , 1 6)A2+n(5 , 1 7)A2+n(5 , 1 8))/(  15000*10000); 
B_75 1 =sqrt(n(5 , 1 9)A2+n(5 ,20)A2+n(5 ,2 1 ))/( 15000*1 0000); 
B_85 1 =sqrt(n(5 ,22)A2+n(5 ,23)A2+n(5 ,24))/(  1 5000*  1 0000); 

B_  1 6 1 =sqrt(n(6, 1  )A2+n(6,2)A2+n(6,3))/(  15000*1 0000); 
B_261=sqrt(n(6,4)A2+n(6,5)A2+n(6,6))/(l  5000*  10000); 
B_361=sqrt(n(6,7)A2+n(6,8)A2+n(6,9))/(l  5000*  10000); 
B_461=sqrt(n(6, 1 0)A2+n(6, 1  l)A2+n(6, 12))/(  15000*1 0000); 
B_561=sqrt(n(6, 1 3)A2+n(6, 14)A2+n(6, 1 5))/(  15000*1 0000); 
B_66 1 =sqrt(n(6, 1 6)A2+n(6, 1 7)A2+n(6, 1 8))/(  15000*1 0000); 
B_76 1 =sqrt(n(6, 1 9)A2+n(6,20)A2+n(6,2 1 ))/( 15000*1 0000); 
B_861=sqrt(n(6,22)A2+n(6,23)A2+n(6,24))/(  15000*  10000); 


B_level_l=[B_161  B261  B361  B461  B561  B661  B761  B861; 

%  values  in  Tesla 

B  151  B_251  B351  B_451  B_551  B_651  B_751  B_851; 

B141  B241  B341  B441  B541  B641  B741  B841; 

B131  B231  B331  B_431  B531  B631  B731  B831; 

B121  B_221  B_321  B_421  B_521  B_621  B_721  B_821; 

B  ill  B  211  B  311  B_41 1  B_5 1 1  B  611  B  711  B  811]; 
figure(l) 

[X,Y]=meshgrid(x,yy); 
surf(X,  Y,B_level_  1 ); 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 
figure(2) 

C=contour3(X,Y,B_level_l,10); 

clabel(C) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
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title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 
figure(3) 

[DB]=gradient(B_level_  1 , .  5 , .  5); 

D=contour3(X,Y,B_level_l); 

clabel(D) 


hold  on 


quiver(B_level_  1  ,DB) 
hold  off 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


load  ilj  lz2.txt;  load  i2j  lz2.txt;  load  i3j  lz2.txt;  load  i4j  lz2.txt;  load  i5j  lz2.txt;  load  i6j  lz2.txt; 
load  i7j lz2.txt;  load  i8j  lz2.txt 

load  ilj2z2.txt;  load  i2j2z2.txt;  load  i3j2z2.txt;  load  i4j2z2.txt;  load  i5j2z2.txt;  load  i6j2z2.txt; 
load  i7j2z2.txt;  load  i8j2z2.txt 

load  ilj3z2.txt;  load  i2j3z2.txt;  load  i3j3z2.txt;  load  i4j3z2.txt;  load  i5j3z2.txt;  load  i6j3z2.txt; 
load  i7j3z2.txt;  load  i8j3z2.txt 

load  ilj4z2.txt;  load  i2j4z2.txt;  load  i3j4z2.txt;  load  i4j4z2.txt;  load  i5j4z2.txt;  load  i6j4z2.txt; 
load  i7j4z2.txt;  load  i8j4z2.txt 

load  ilj5z2.txt;  load  i2j5z2.txt;  load  i3j5z2.txt;  load  i4j5z2.txt;  load  i5j5z2.txt;  load  i6j5z2.txt; 
load  i7j5z2.txt;  load  i8j5z2.txt 

load  ilj6z2.txt;  load  i2j6z2.txt;  load  i3j6z2.txt;  load  i4j6z2.txt;  load  i5j6z2.txt;  load  i6j6z2.txt; 
load  i7j6z2.txt;  load  i8j6z2.txt 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  B  field  calculations  for  ilj lz2  through  i8j lz2 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%n  1 =[mean(i  1  j  1  z2(  1 
1 80, 1 :3))  mean(i2j  lz2(  1 : 1 80, 1 :3))  mean(i3j  lz2(  1 : 1 80, 1 :3))  mean(i4j  lz2(  1 : 1 80, 1 :3)) 
mean(i5j  lz2(  1 : 1 80, 1 :3))  mean(i6j  lz2(  1:180,1:3))  mean(i7j  lz2(  1 : 1 80, 1 :3)) 
mean(i8j  lz2(  1:180,1 :3)); 

mean(i Ij2z2(  1:180,1 :3))  mean(i2j2z2(  1:180,1 :3))  mean(i3j2z2(  1:180,1 :3)) 
mean(i4j2z2(  1:180,1 :3))  mean(i5j2z2(  1:180,1:3))  mean(i6j2z2(  1:180,1 :3)) 
mean(i7j2z2(  1:180,1 :3))  mean(i8j2z2(  1:180,1 :3)); 

mean(i Ij3z2(  1:180,1 :3))  mean(i2j3z2(  1:180,1 :3))  mean(i3j3z2(  1:180,1 :3)) 
mean(i4j3z2(  1:180,1 :3))  mean(i5j3z2(  1:180,1:3))  mean(i6j3z2(  1:180,1 :3)) 
mean(i8j3z2(  1:180,1 :3))  mean(i8j3z2(  1:180,1 :3)); 

mean(i  Ij4z2(  1:180,1 :3))  mean(i2j4z2(  1:180,1 :3))  mean(i3j4z2(  1:180,1 :3)) 
mean(i4j4z2(  1:180,1 :3))  mean(i5j4z2(  1:180,1:3))  mean(i6j4z2(  1:180,1 :3)) 
mean(i8j4z2(  1:180,1 :3))  mean(i8j4z2(  1:180,1 :3)); 

mean(i  lj 5z2(  1:180,1:3))  mean(i2j 5z2(  1:180,1:3))  mean(i3j 5z2(  1:180,1:3)) 
mean(i4j5z2(  1:180,1 :3))  mean(i5j 5z2(  1:180,1:3))  mean(i6j5z2(  1:180,1 :3)) 
mean(i8j 5z2(  1:180,1 :3))  mean(i8j 5z2(  1:180,1 :3)); 

mean(i  Ij6z2(  1 : 1 80, 1 :3))  mean(i2j6z2(  1 : 1 80, 1 :3))  mean(i3j6z2(l :  1 80, 1 :3)) 
mean(i4j6z2(  1 : 1 80, 1 :3))  mean(i5j6z2(  1:180,1:3))  mean(i6j6z2(l :  1 80, 1 :3)) 
mean(i8j6z2(l:  180,1:3))  mean(i8j6z2(l:180,l:3))]; 


138 


B_  1 1 2=sqrt(n  1(1,1  )A2+n  1  ( 1 ,2)A2+n  1  ( 1 ,3))/(  15000*1 0000); 
B_2 1 2=sqrt(n  1  ( 1 ,4)A2+n  1  ( 1 ,5)A2+n  1  ( 1 ,6))/(  15000*1 0000); 
B_3 1 2=sqrt(n  1  ( 1 ,7)A2+n  1  ( 1 , 8)A2+n  1  ( 1 ,9))/(  15000*10000); 
B_4 1 2=sqrt(n  1(1,1 0)A2+n  1(1,11  )A2+n  1(1,1 2))/(  15000*1 0000); 
B_5 1 2=sqrt(n  1(1,1 3)A2+n  1(1,1 4)A2+n  1(1,1 5))/(  15000*1 0000); 
B_6 1 2=sqrt(n  1(1,1 6)A2+n  1(1,1 7)A2+n  1(1,1 8))/(  15000*10000); 
B_7 1 2=sqrt(n  1(1,1 9)A2+n  1  ( 1 ,20)A2+n  1  ( 1 ,2 1 ))/( 15000*1 0000); 
B_8 1 2=sqrt(n  1  ( 1 ,22)A2+n  1  ( 1 ,23)A2+n  1  ( 1 ,24))/(  15000*1 0000); 

B_  1 22=sqrt(n  1(2,1  )A2+n  1  (2,2)A2+n  1  (2,3))/(  1 5000*  1 0000); 
B_222=sqrt(n  1  (2,4)A2+n  1  (2,5)A2+n  1  (2,6))/(  15000*1 0000); 
B_322=sqrt(n  1  (2,7)A2+n  1  (2,8)A2+n  1  (2,9))/(  15000*1 0000); 
B_422=sqrt(n  1(2,1 0)A2+n  1  (2, 1 1  )A2+n  1(2,1 2 ))/( 15000*1 0000); 
B_522=sqrt(n  1(2,1 3)A2+n  1(2,1 4)A2+n  1(2,1 5))/(  15000*1 0000); 
B_622=sqrt(n  1(2,1 6)A2+n  1(2,1 7)A2+n  1(2,1 8))/(  15000*1 0000); 
B_722=sqrt(n  1(2,1 9)A2+n  1  (2,20)A2+n  1  (2,2 1 ))/( 15000*1 0000); 
B_822=sqrt(n  1  (2,22)A2+n  1  (2,23)A2+n  1  (2,24))/(  15000*1 0000); 

B_  1 32=sqrt(n  1(3,1  )A2+n  1  (3 ,2)A2+n  1  (3 ,3))/(  15000*1 0000); 
B_232=sqrt(n  1  (3 ,4)A2+n  1  (3 ,5)A2+n  1  (3 ,6))/(  15000*1 0000); 
B_332=sqrt(n  1  (3 ,7)A2+n  1  (3 , 8)A2+n  1  (3 ,9»/(  15000*10000); 
B_432=sqrt(n  1(3,1 0)A2+n  1  (3 , 1 1  )A2+n  1(3,1 2))/(  15000*1 0000); 
B_532=sqrt(n  1(3,1 3)A2+n  1(3,1 4)A2+n  1(3,1 5))/(  15000*1 0000); 
B_632=sqrt(n  1(3,1 6)A2+n  1(3,1 7)A2+n  1(3,1 8))/(  15000*1 0000); 
B_732=sqrt(n  1(3,1 9)A2+n  1  (3 ,20)A2+n  1  (3 ,2 1 ))/( 15000*1 0000); 
B_832=sqrt(n  1  (3 ,22)A2+n  1  (3 ,23  )A2+n  1  (3 ,24))/(  15000*1 0000); 

B_  1 42=sqrt(n  1(4,1  )A2+n  1  (4,2)A2+n  1  (4,3))/(  15000*1 0000); 
B_242=sqrt(n  1  (4,4)A2+n  1  (4,5)A2+n  1  (4,6))/(  15000*1 0000); 
B_342=sqrt(n  1  (4,7)A2+n  1  (4,8)A2+n  1  (4,9))/(  15000*1 0000); 
B_442=sqrt(n  1(4,1 0)A2+n  1  (4, 1 1  )A2+n  1(4,1 2))/(  15000*1 0000); 
B_542=sqrt(n  1(4,1 3)A2+n  1  (4, 1 4)A2+n  1(4,1 5))/(  15000*1 0000); 
B_642=sqrt(n  1(4,1 6)A2+n  1  (4, 1 7)A2+n  1(4,1 8))/(  15000*1 0000); 
B_742=sqrt(n  1(4,1 9)A2+n  1  (4,20)A2+n  1  (4,2 1 ))/( 15000*1 0000); 
B_842=sqrt(n  1  (4,22)A2+n  1  (4,23)A2+n  1  (4,24))/(  15000*1 0000); 

B_  1 52=sqrt(n  1(5,1  )A2+n  1  (5 ,2)A2+n  1  (5 ,3))/(  15000*1 0000); 
B_252=sqrt(n  1  (5 ,4)A2+n  1  (5 ,5)A2+n  1  (5,6»/(  15000*1 0000); 
B_352=sqrt(n  1  (5 ,7)A2+n  1  (5 , 8)A2+n  1  (5 ,9))/(  15000*10000); 
B_452=sqrt(n  1(5,1 0)A2+n  1(5,11  )A2+n  1(5,1 2))/(  15000*1 0000); 
B_552=sqrt(n  1(5,1 3)A2+n  1(5,1 4)A2+n  1(5,1 5))/(  15000*1 0000); 
B_652=sqrt(n  1(5,1 6)A2+n  1(5,1 7)A2+n  1(5,1 8))/(  15000*1 0000); 
B_752=sqrt(n  1(5,1 9)A2+n  1  (5 ,20)A2+n  1  (5 ,2 1 ))/( 15000*1 0000); 
B_852=sqrt(n  1  (5 ,22)A2+n  1  (5 ,23)A2+n  1  (5 ,24))/(  15000*1 0000); 
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B_  1 62=sqrt(n  1(6,1  )A2+n  1  (6,2)A2+n  1  (6,3))/(  15000*1 0000); 

B_262=sqrt(n  1  (6,4)A2+n  1  (6,5)A2+n  1  (6,6))/(  15000*1 0000); 

B_362=sqrt(n  1  (6,7)A2+n  1  (6,8)A2+n  1  (6,9))/(  15000*1 0000); 

B_462=sqrt(n  1(6,1 0)A2+n  1  (6, 1 1  )A2+n  1(6,1 2))/(  15000*1 0000); 

B_562=sqrt(n  1(6,1 3)A2+n  1(6,1 4)A2+n  1(6,1 5))/(  15000*1 0000); 

B_662=sqrt(n  1(6,1 6)A2+n  1(6,1 7)A2+n  1(6,1 8))/(  15000*1 0000); 

B_762=sqrt(n  1(6,1 9)A2+n  1  (6,20)A2+n  1  (6,2 1 ))/( 15000*1 0000); 

B_862=sqrt(n  1  (6,22)A2+n  1  (6,23)A2+n  1  (6,24))/(  15000*1 0000); 

B_level_2=[B_162  B  262  B  362  B  462  B  562  B  662  B  762  B  862; 

%  values  in  Tesla 

B_152  B_252  B_352  B_452  B_552  B_652  B_752  B_852; 

B_142  B_242  B_342  B_442  B_542  B_642  B_742  B_842; 

B_132  B_232  B_332  B_432  B_532  B_632  B_732  B_832; 

B_122  B_222  B_322  B_422  B_522  B_622  B_722  B_822; 

B_1 12  B_212  B_312  B_412  B_512  B_612  B_712  B  812]; 
figure(4) 

[X,Y]=meshgrid(x,yy); 

surf(X,Y,B_level_2) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL') 
figure(5) 

C2=contour3(X,Y,B_level_2,10); 

clabel(C2) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’ SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL') 
figure(6) 

[DB2] =gradient(B_level_2 , .  5 , .  5  ) ; 

D2=contour3(X,Y,B_level_2); 

clabel(D2) 

hold  on 

quiver(B_level_2,DB2) 
hold  off 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL’) 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%B  field  calculations  for  ilj  lz3  through  i8j  lz3 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


load  ilj lz3.txt;  load  i2j lz3.txt;  load  i3j lz3.txt;  load  i4j  lz3.txt;  load  i5j  lz3.txt;  load  i6j lz3.txt; 
load  i7j  lz3.txt;  load  i8j  lz3.txt 
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load  ilj2z3.txt;  load  i2j2z3.txt;  load  i3j2z3.txt;  load  i4j2z3.txt;  load  i5j2z3.txt;  load  i6j2z3.txt; 
load  i7j2z3.txt;  load  i8j2z3.txt 

load  ilj3z3.txt;  load  i2j3z3.txt;  load  i3j3z3.txt;  load  i4j3z3.txt;  load  i5j3z3.txt;  load  i6j3z3.txt; 
load  i7j3z3.txt;  load  i8j3z3.txt 

load  ilj4z3.txt;  load  i2j4z3.txt;  load  i3j4z3.txt;  load  i4j4z3.txt;  load  i5j4z3.txt;  load  i6j4z3.txt; 
load  i7j4z3.txt;  load  i8j4z3.txt 

load  ilj5z3.txt;  load  i2j5z3.txt;  load  i3j5z3.txt;  load  i4j5z3.txt;  load  i5j5z3.txt;  load  i6j5z3.txt; 
load  i7j5z3.txt;  load  i8j5z3.txt 

load  ilj6z3.txt;  load  i2j6z3.txt;  load  i3j6z3.txt;  load  i4j6z3.txt;  load  i5j6z3.txt;  load  i6j6z3.txt; 
load  i7j6z3.txt;  load  i8j6z3.txt 

n3=[mean(i lj  lz3(  1 : 1 80, 1 :3))  mean(i2j  lz3(l :  180,1:3))  mean(i3j lz3(  1 : 1 80, 1 :3)) 
mean(i4jlz3(l:  180,1:3))  mean(i5jlz3(l:  180,1:3))  mean(i6jlz3(l:180,l:3)) 
mean(i7j  lz3(  1 : 1 80, 1 :3))  mean(i8j  lz3(  1 : 1 80, 1 :3)); 

mean(i Ij2z3(  1 : 1 80, 1 :3))  mean(i2j2z3(  1 : 1 80, 1 :3))  mean(i3j2z3(  1 : 1 80, 1 :3)) 
mean(i4j2z3(  1:180,1 :3))  mean(i5j2z3(  1:180,1:3))  mean(i6j2z3(  1 : 1 80, 1 :3)) 
mean(i7j2z3(  1 : 1 80, 1 :3))  mean(i8j2z3(  1 : 160, 1 :3)); 

mean(i Ij3z3(  1 : 1 80, 1 :3))  mean(i2j3z3(  1 : 1 80, 1 :3))  mean(i3j3z3(  1 : 1 80, 1 :3)) 
mean(i4j3z3(l:  180,1:3))  mean(i5j3z3(l:  170,1:3))  mean(i6j3z3(l:180,l:3)) 
mean(i8j3z3(  1 : 1 80, 1 :3))  mean(i8j3z3(  1 : 1 80, 1 :3)); 

mean(i Ij4z3(  1:180,1 :3))  mean(i2j4z3(  1:180,1 :3))  mean(i3j4z3(  1 : 1 80, 1 :3)) 
mean(i4j4z3(  1:180,1 :3))  mean(i5j4z3(  1:180,1:3))  mean(i6j4z3(  1 : 1 80, 1 :3)) 
mean(i8j4z3(  1 : 1 80, 1 :3))  mean(i8j4z3(  1 : 1 80, 1 :3)); 

mean(i lj 5z3(  1:180,1 :3))  mean(i2j 5z3(  1:180,1 :3))  mean(i3j 5z3(  1 : 1 80, 1 :3)) 
mean(i4j 5z3(  1:180,1 :3))  mean(i5j 5z3(  1:180,1:3))  mean(i6j5z3(  1 : 1 80, 1 :3)) 
mean(i8j5z3(  1 : 1 80, 1 :3))  mean(i8j5z3(  1 : 1 80, 1 :3)); 

mean(i  Ij6z3(  1:180,1:3))  mean(i2j6z3(  1:180,1:3))  mean(i3j6z3(  1 : 1 80, 1 :3)) 
mean(i4j6z3(  1 : 1 80, 1 :3))  mean(i5j6z3(  1 : 1 80, 1 :3))  mean(i6j6z3(l :  1 80, 1 :3)) 
mean(i8j6z3(  1:180,1:3))  mean(i8j6z3(  1 : 1 80, 1 :3))] ; 

B_1 1 3=sqrt(n3(  1 ,  l)A2+n3(  1 ,2)A2+n3(  1 ,3))/(  15000*1 0000); 

B_2 1 3=sqrt(n3(  1 ,4)A2+n3(  1 ,5)A2+n3(  1 ,6))/(  15000*1 0000); 

B_3 1 3=sqrt(n3  ( 1 ,7)A2+n3  ( 1 , 8)A2+n3 ( 1 ,9))/ (15000*10000); 

B_4 1 3=sqrt(n3(  1 , 1 0)A2+n3(  1 , 1 1  )A2+n3(  1 , 1 2))/(  15000*1 0000); 

B_5 1 3=sqrt(n3(  1 , 1 3)A2+n3(  1 , 14)A2+n3(  1 , 1 5))/(  1 5000*  1 0000); 

B_6 1 3=sqrt(n3  (1,1 6)A2+n3  (1,1 7)A2+n3  (1,1 8))/(  1 5000*  1 0000); 

B_7 1 3=sqrt(n3(  1 , 1 9)A2+n3(  1 ,20)A2+n3(  1 ,2 1))/(  1 5000*  1 0000); 

B_8 1 3=sqrt(n3(  1 ,22)A2+n3(  1 ,23)A2+n3(  1 ,24))/(  15000*1 0000); 

B_123=sqrt(n3(2,l)A2+n3(2,2)A2+n3(2,3))/(  15000*  10000); 
B_223=sqrt(n3(2,4)A2+n3(2,5)A2+n3(2,6))/(  15000*  10000); 
B_323=sqrt(n3(2,7)A2+n3(2,8)A2+n3(2,9))/(  15000*  10000); 

B_423=sqrt(n3(2, 1 0)A2+n3(2, 1 1  )A2+n3(2, 12))/(  15000*1 0000); 

B_523=sqrt(n3(2, 1 3)A2+n3(2, 14)A2+n3(2, 1 5))/(  15000*1 0000); 

B_623=sqrt(n3(2, 1 6)A2+n3(2, 1 7)A2+n3(2, 1 8))/(  1 5000*  1 0000); 
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B_723=sqrt(n3(2,19)A2+n3(2,20)A2+n3(2,21))/(  15000*  10000); 
B_823=sqrt(n3(2,22)A2+n3(2,23)A2+n3(2,24))/(  15000*  10000); 

B_133=sqrt(n3(3,l)A2+n3(3,2)A2+n3(3,3))/(  15000*  10000); 
B_233=sqrt(n3(3,4)A2+n3(3,5)A2+n3(3,6))/(  15000*  10000); 
B_333=sqrt(n3(3,7)A2+n3(3,8)A2+n3(3,9))/(  15000*  10000); 
B_433=sqrt(n3(3,10)A2+n3(3,l  l)A2+n3(3,12))/(  15000*  10000); 
B_533=sqrt(n3(3, 1 3)A2+n3(3, 14)A2+n3(3, 1 5))/(  1 5000*  1 0000); 
B_633=sqrt(n3(3,l  6)A2+n3(3, 1 7)A2+n3(3, 1 8))/(  15000*1 0000); 
B_733=sqrt(n3(3,19)A2+n3(3,20)A2+n3(3, 2 1))/(  15000*  10000); 
B_833=sqrt(n3(3,22)A2+n3(3,23)A2+n3(3,24))/(  15000*  10000); 

B_143=sqrt(n3(4,l)A2+n3(4,2)A2+n3(4,3))/(  15000*  10000); 
B_243=sqrt(n3(4,4)A2+n3(4,5)A2+n3(4,6))/(  15000*  10000); 
B_343=sqrt(n3(4,7)A2+n3(4,8)A2+n3(4,9))/(  15000*  10000); 
B_443=sqrt(n3(4, 1 0)A2+n3(4, 1 1  )A2+n3(4, 12))/(  1 5000*  1 0000); 
B_543=sqrt(n3(4, 1 3)A2+n3(4, 14)A2+n3(4, 1 5))/(  1 5000*  1 0000); 
B_643=sqrt(n3(4,16)A2+n3(4,17)A2+n3(4,18))/(  15000*  10000); 
B_743=sqrt(n3(4,19)A2+n3(4,20)A2+n3(4, 2 1))/(  15000*  10000); 
B_843=sqrt(n3(4,22)A2+n3(4,23)A2+n3(4,24))/(  15000*  10000); 

B_153=sqrt(n3(5,l)A2+n3(5,2)A2+n3(5,3))/(  15000*  10000); 
B_253=sqrt(n3(5,4)A2+n3(5,5)A2+n3(5,6))/(  15000*  10000); 

B_3  5  3=sqrt(n3  (5 ,7)A2+n3  (5 , 8)A2+n3  (5 ,9))/ (15000*10000); 

B_45  3=sqrt(n3  (5 , 1 0)A2+n3  (5 , 1 1  )A2+n3  (5 , 1 2))/ (15000*10000); 
B_553=sqrt(n3(5,13)A2+n3(5,14)A2+n3(5,15))/(  15000*  10000); 
B_653=sqrt(n3(5, 1 6)A2+n3(5, 1 7)A2+n3(5, 1 8))/(  1 5000*  1 0000); 
B_753=sqrt(n3(5,19)A2+n3(5,20)A2+n3(5, 2 1))/(  15000*  10000); 
B_853=sqrt(n3(5,22)A2+n3(5,23)A2+n3(5,24))/(  15000*  10000); 

B_163=sqrt(n3(6,l)A2+n3(6,2)A2+n3(6,3))/(  15000*  10000); 
B_263=sqrt(n3(6,4)A2+n3(6,5)A2+n3(6,6))/(  15000*  10000); 
B_363=sqrt(n3(6,7)A2+n3(6,8)A2+n3(6,9))/(  15000*  10000); 
B_463=sqrt(n3(6, 1 0)A2+n3(6, 1  l)A2+n3(6, 12))/(  1 5000*  1 0000); 
B_563=sqrt(n3(6, 1 3)A2+n3(6, 14)A2+n3(6, 1 5))/(  15000*1 0000); 
B_663=sqrt(n3(6, 1 6)A2+n3(6, 1 7)A2+n3(6, 1 8))/(  1 5000*  1 0000); 
B_763=sqrt(n3(6,19)A2+n3(6,20)A2+n3(6, 2 1))/(  15000*  10000); 
B_863=sqrt(n3(6,22)A2+n3(6,23)A2+n3(6,24))/(  15000*  10000); 

B_level_3=[B_163  B  263  B  363  B  463  B  563  B  663  B  763  B  863 
%  values  in  Tesla 

B153  B_253  B_353  B_453  B_553  B_653  B_753  B_853; 
B_143  B_243  B_343  B_443  B_543  B_643  B_743  B_843; 
B133  B_233  B_333  B_433  B_533  B_633  B_733  B_833; 
B_123  B_223  B_323  B_423  B_523  B_623  B_723  B_823; 
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B_1 13  B  213  B  313  B  413  B513  B  613  B  713  B  813]; 
figure(7) 

[X,Y]=meshgrid(x,yy); 

surf(X,Y,B_level_3) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL’) 
figure(8) 

C3=contour3  (X, Y,B  level_3 ,10); 
clabel(C3) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL') 
figure(9) 

[DB3  ] =gradient(B_level_3 , .  5 , .  5  ) ; 

D3 =c  ontour3  (X,  Y  ,B_lcvel_3); 

clabel(D3) 

hold  on 

quiver(B_level_3  ,DB3) 
hold  off 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL') 

%B  field  calculations  for  i  1  j  1  z4  through  i8j  lz4 

%%%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%% 

load  ilj  lz4.txt;  load  i2j  lz4.txt;  load  i3j  lz4.txt;  load  i4j  lz4.txt;  load  i5j  lz4.txt;  load  i6j  lz4.txt; 
load  i7j lz4.txt;  load  i8j  lz4.txt 

load  ilj2z4.txt;  load  i2j2z4.txt;  load  i3j2z4.txt;  load  i4j2z4.txt;  load  i5j2z4.txt;  load  i6j2z4.txt; 
load  i7j2z4.txt;  load  i8j2z4.txt 

load  ilj3z4.txt;  load  i2j3z4.txt;  load  i3j3z4.txt;  load  i4j3z4.txt;  load  i5j3z4.txt;  load  i6j3z4.txt; 
load  i7j3z4.txt;  load  i8j3z4.txt 

load  ilj4z4.txt;  load  i2j4z4.txt;  load  i3j4z4.txt;  load  i4j4z4.txt;  load  i5j4z4.txt;  load  i6j4z4.txt; 
load  i7j4z4.txt;  load  i8j4z4.txt 

load  ilj5z4.txt;  load  i2j5z4.txt;  load  i3j5z4.txt;  load  i4j5z4.txt;  load  i5j5z4.txt;  load  i6j5z4.txt; 
load  i7j5z4.txt;  load  i8j5z4.txt 

load  ilj6z4.txt;  load  i2j6z4.txt;  load  i3j6z4.txt;  load  i4j6z4.txt;  load  i5j6z4.txt;  load  i6j6z4.txt; 
load  i7j6z4.txt;  load  i8j6z4.txt 

n4=[mean(i lj  lz4(  1:180,1:3))  mean(i2j  1  z4(  1:180,1 :3))  mean(i3j  lz4(  1:180,1 :3)) 
mean(i4j  lz4(  1:180,1 :3))  mean(i5j  lz4(  1:180,1:3))  mean(i6j  lz4(  1:180,1 :3)) 
mean(i7j  lz4(  1:180,1 :3))  mean(i8j  lz4(  1:180,1 :3)); 

mean(ilj2z4(  1 : 1 80, 1 :3))  mean(i2j2z4(  1 : 170, 1 :3))  mean(i3j2z4(l :  1 80, 1 :3)) 
mean(i4j2z4(  1:180,1 :3))  mean(i5j2z4(  1:180,1:3))  mean(i6j2z4(  1:180,1 :3)) 
mean(i7j2z4(l:  180,1:3))  mean(i8j2z4(  1:160, 1:3)); 


143 


mean(i  Ij3z4(  1:180,1 :3))  mean(i2j3z4(  1:180,1 :3))  mean(i3j3z4(  1:180,1 :3)) 
mean(i4j3z4(  1 : 1 80, 1 :3))  mean(i5j3z4(  1 : 170, 1 :3))  mean(i6j3z4(l :  1 80, 1 :3)) 
mean(i8j3z4(  1:180,1 :3))  mean(i8j3z4(  1:180,1 :3)); 

mean(i Ij4z4(  1:180,1 :3))  mean(i2j4z4(  1:180,1 :3))  mean(i3j4z4(  1:180,1 :3)) 
mean(i4j4z4(  1:180,1 :3))  mean(i5j4z4(  1:180,1:3))  mean(i6j4z4(  1:180,1 :3)) 
mean(i8j4z4(  1:180,1 :3))  mean(i8j4z4(  1:180,1 :3)); 

mean(i  lj 5z4(  1:180,1:3))  mean(i2j 5z4(  1:180,1:3))  mean(i3j 5z4(  1:180,1:3)) 
mean(i4j5z4(  1:180,1 :3))  mean(i5j 5z4(  1:180,1:3))  mean(i6j5z4(  1:180,1 :3)) 
mean(i8j 5z4(  1:180,1 :3))  mean(i8j 5z4(  1:180,1 :3)); 

mean(i  Ij6z4(  1 : 1 80, 1 :3))  mean(i2j6z4(  1 : 1 80, 1 :3))  mean(i3j6z4(l :  1 80, 1 :3)) 
mean(i4j6z4(  1 : 1 80, 1 :3))  mean(i5j6z4(  1 : 1 80, 1 :3))  mean(i6j6z4(l :  1 80, 1 :3)) 
mean(i8j6z4(  1:180,1 :3))  mean(i8j6z4(  1:180,1 :3))] ; 


B_  1 1 4=sqrt(n4(  1 , 1  )A2+n4(  1 ,2)A2+n4(  1 ,3))/(  15000*1 0000); 
B_2 1 4=sqrt(n4(  1 ,4)A2+n4(  1 ,5)A2+n4(  1 ,6))/(  15000*1 0000); 
B_3 1 4=sqrt(n4(  1 ,7)A2+n4(  1 ,8)A2+n4(  1 ,9))/(  15000*1 0000); 
B_4 1 4=sqrt(n4(  1 , 1 0)A2+n4(  1,11  )A2+n4(  1 , 1 2))/(  15000*1 0000); 
B_5 1 4=sqrt(n4(  1 , 1 3)A2+n4(  1 , 1 4)A2+n4(  1 , 1 5))/(  15000*1 0000); 
B_6 1 4=sqrt(n4(  1 , 1 6)A2+n4(  1 , 1 7)A2+n4(  1 , 1 8))/(  15000*1 0000); 
B_7 1 4=sqrt(n4(  1 , 1 9)A2+n4(  1 ,20)A2+n4(  1 ,2 1 ))/( 15000*1 0000); 
B_8 1 4=sqrt(n4(  1 ,22)A2+n4(  1 ,23)A2+n4(  1 ,24))/(  15000*1 0000); 

B_124=sqrt(n4(2,l)A2+n4(2,2)A2+n4(2,3))/(  15000*  10000); 
B_224=sqrt(n4(2,4)A2+n4(2,5)A2+n4(2,6))/(  15000*  10000); 
B_324=sqrt(n4(2,7)A2+n4(2,8)A2+n4(2,9))/(  15000*  10000); 
B_424=sqrt(n4(2, 1 0)A2+n4(2, 1  l)A2+n4(2, 12))/(  1 5000*  1 0000); 
B_524=sqrt(n4(2, 1 3  )A2+n4(2, 1 4)A2+n4(2, 1 5))/(  15000*1 0000); 
B_624=sqrt(n4(2, 1 6)A2+n4(2, 1 7)A2+n4(2, 1 8))/(  15000*1 0000); 
B_724=sqrt(n4(2,19)A2+n4(2,20)A2+n4(2, 2 1))/(  15000*  10000); 
B_824=sqrt(n4(2,22)A2+n4(2,23)A2+n4(2,24))/(  15000*  10000); 

B_  1 34=sqrt(n4(3 , 1  )A2+n4(3 ,2)A2+n4(3 ,3))/(  15000*10000); 
B_234=sqrt(n4(3,4)A2+n4(3,5)A2+n4(3,6))/(  15000*  10000); 
B_334=sqrt(n4(3,7)A2+n4(3,8)A2+n4(3,9))/(  15000*  10000); 
B_434=sqrt(n4(3 , 1 0)A2+n4(3 , 1 1  )A2+n4(3 , 1 2))/(  1 5000*  1 0000); 
B_534=sqrt(n4(3, 1 3)A2+n4(3, 14)A2+n4(3, 1 5))/(  1 5000*  1 0000); 
B_634=sqrt(n4(3 , 1 6)A2+n4(3 , 1 7)A2+n4(3 , 1 8))/(  15000*1 0000); 
B_734=sqrt(n4(3,19)A2+n4(3,20)A2+n4(3, 2 1))/(  15000*  10000); 
B_834=sqrt(n4(3,22)A2+n4(3,23)A2+n4(3,24))/(  15000*  10000); 

B_144=sqrt(n4(4,l)A2+n4(4,2)A2+n4(4,3))/(  15000*  10000); 
B_244=sqrt(n4(4,4)A2+n4(4,5)A2+n4(4,6))/(  15000*  10000); 
B_344=sqrt(n4(4,7)A2+n4(4,8)A2+n4(4,9))/(  15000*  10000); 
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B_444=sqrt(n4(4, 1 0)A2+n4(4, 1 1  )A2+n4(4, 1 2 ))/( 15000*1 0000); 

B_544=sqrt(n4(4, 1 3)A2+n4(4, 1 4)A2+n4(4, 1 5))/(  15000*1 0000); 

B_644=sqrt(n4(4, 1 6)A2+n4(4, 1 7)A2+n4(4, 1 8))/(  15000*1 0000); 
B_744=sqrt(n4(4,19)A2+n4(4,20)A2+n4(4,21))/(  15000*  10000); 
B_844=sqrt(n4(4,22)A2+n4(4,23)A2+n4(4,24))/(  15000*  10000); 

B_  1 54=sqrt(n4(5 , 1  )A2+n4(5 ,2)A2+n4(5 ,3))/(  15000*10000); 
B_254=sqrt(n4(5,4)A2+n4(5,5)A2+n4(5,6))/(  15000*  10000); 

B_354=sqrt(n4(5 ,7)A2+n4(5 , 8)A2+n4(5 ,9))/(  15000*10000); 

B_454=sqrt(n4(5 , 1 0)A2+n4(5 , 1 1  )A2+n4(5 , 1 2))/(  15000*10000); 

B_554=sqrt(n4(5,l  3)A2+n4(5, 14)A2+n4(5, 1 5))/(  15000*1 0000); 

B_654=sqrt(n4(5 , 1 6)A2+n4(5 , 1 7)A2+n4(5 , 1 8))/(  15000*1 0000); 
B_754=sqrt(n4(5,19)A2+n4(5,20)A2+n4(5, 2 1))/(  15000*  10000); 
B_854=sqrt(n4(5,22)A2+n4(5,23)A2+n4(5,24))/(  15000*  10000); 

B_164=sqrt(n4(6,l)A2+n4(6,2)A2+n4(6,3))/(  15000*  10000); 
B_264=sqrt(n4(6,4)A2+n4(6,5)A2+n4(6,6))/(  15000*  10000); 
B_364=sqrt(n4(6,7)A2+n4(6,8)A2+n4(6,9))/(  15000*  10000); 

B_464=sqrt(n4(6, 1 0)A2+n4(6, 1  l)A2+n4(6, 12))/(  15000*1 0000); 

B_564=sqrt(n4(6, 1 3)A2+n4(6, 14)A2+n4(6, 1 5))/(  15000*1 0000); 

B_664=sqrt(n4(6, 1 6)A2+n4(6, 1 7)A2+n4(6, 1 8))/(  15000*1 0000); 

B_764=sqrt(n4(6, 19)A2+n4(6,20)A2+n4(6, 2 1))/(  15000*  10000); 
B_864=sqrt(n4(6,22)A2+n4(6,23)A2+n4(6,24))/(  15000*  10000); 

B_level_4=[B_164  B  264  B  364  B  464  B  564  B  664  B  764  B  864; 

%  values  in  Tesla 

B_154  B_254  B_354  B_454  B_554  B_654  B_754  B_854; 

B144  B_244  B_344  B_444  B_544  B_644  B_744  B_844; 

B134  B_234  B_334  B_434  B_534  B_634  B_734  B_834; 

B_124  B_224  B_324  B_424  B_524  B_624  B_724  B_824; 

B_1 14  B_214  B  314  B_414  B_514  B_614  B_714  B  814]; 
figure(lO) 

[X,Y]=meshgrid(x,yy) 

surf(X,Y,B_level_4) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
figure(l  1) 

C4=contour3  (X,Y,B_lcvcl_4, 1 0) ; 
clabel(C4) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
figure(12) 

[DB4] =gradient(B_level_4 , .  5 , .  5  ) ; 
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D4=contour3(X,Y,B_level_4); 

clabel(D4) 

hold  on 

quiver(B_level_4,DB4) 
hold  off 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’ SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
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APPENDIX  H.  NPSAT1  AIR-BEARING  LABORATORY  MAGNETIC 
FIELD  SURVEY  NO.  2  MATLAB  PROGRAM 


This  Appendix  contains  the  second  MATLAB  program  written  to  determine  the  coarse 
magnetic  field  that  resides  in  the  SSAG  laboratory. 


%  LCDR  Eric  W.  Herbert,  USN,  4/1/04 
%  Air  Bearing  Magnetic  Field  Determination 

%  Four  sets  of  meausrement  values  are  used.  A  5X7  grid  corresponds 
%  to  the  x  and  y  axis.  Z  is  characterized  by  4  heights. 

%  This  algorithm’s  purpose  is  to  load  the  measured  data, 

%  remove  the  magnetic  north  measurement  (not  required),  convert 
%  the  Honeywell  HM2300  Magnetometer  cooridinate  system  to  the 
%  cooridinate  system  laid  out  in  the  lab.  The  magnetometer  readings  are 
%  measured  in  counts.  These  are  converted  to  Tesla  by  the  equation: 

%  (counts(l  gauss/15000  counts)/ 1  tesla/10000  gauss).  Additionally,  it  will 
%  identify  the  number  of  samples  as  180.  This  is  from  approx  10  seconds  worth  of 
%  measurements.  The  samples  will  be  averaged  and  used  to  calculate  the 
%  magnetic  field  at  the  specific  grid  point.  field=  ilj  lzl(  1 : 180,1 :3); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


clear  all,  clc 

x=l:8;  y=l:6;  yy=rot90(y); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  %FLOOR  LEVEL 
%  load  measured  values 

load  iljlzl.txt;  load  i2jlzl.txt;  load  i3jlzl.txt;  load  i4jlzl.txt;  load  i5jlzl.txt;  load  i6jlzl.txt; 
load  i7jlzl.txt;  load  i8jlzl.txt 

load  ilj2zl.txt;  load  i2j2zl.txt;  load  i3j2zl.txt;  load  i4j2zl.txt;  load  i5j2zl.txt;  load  i6j2zl.txt; 
load  i7j2zl.txt;  load  i8j2zl.txt 

load  ilj3zl.txt;  load  i2j3zl.txt;  load  i3j3zl.txt;  load  i4j3zl.txt;  load  i5j3zl.txt;  load  i6j3zl.txt; 
load  i7j3zl.txt;  load  i8j3zl.txt 

load  ilj4zl.txt;  load  i2j4zl.txt;  load  i3j4zl.txt;  load  i4j4zl.txt;  load  i5j4zl.txt;  load  i6j4zl.txt; 
load  i7j4zl.txt;  load  i8j4zl.txt 

load  ilj5zl.txt;  load  i2j5zl.txt;  load  i3j5zl.txt;  load  i4j5zl.txt;  load  i5j5zl.txt;  load  i6j5zl.txt; 
load  i7j5zl.txt;  load  i8j5zl.txt 

load  ilj6zl.txt;  load  i2j6zl.txt;  load  i3j6zl.txt;  load  i4j6zl.txt;  load  i5j6zl.txt;  load  i6j6zl.txt; 
load  i7j6zl.txt;  load  i8j6zl.txt 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  B  field  calcula¬ 


tions  for  ilj lzl  through  i8j  lzl 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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n=[mean(i lj  1  z  1  ( 1 : 1 80, 1 :3))  mean(i2j  1  z  1  ( 1 : 1 80, 1 :3))  mean(i3j  1  z  1  ( 1 : 1 80, 1 :3)) 
mean(i4jlzl(l:  180,1:3))  mean(i5jlzl(l:  180,1:3))  mean(i6jlzl(l:180,l:3)) 
mean(i7j lzl ( 1 : 1 80, 1 :3))  mean(i8j  1  zl  ( 1 : 1 80, 1 :3)); 

mean(ilj2zl(l:  180,1:3))  mean(i2j2zl(l:  180,1:3))  mean(i3j2zl(l:  180,1:3)) 
mean(i4j2zl(l:  180,1:3))  mean(i5j2zl(l:  180,1:3))  mean(i6j2zl(l:180,l:3)) 
mean(i7j2z  1(1:180,1:3))  mean(i8j2z  1(1:180,1:3)); 

mean(ilj3zl(l:180,l:3))  mean(i2j3zl(l:  180,1:3))  mean(i3j3zl(l:180,l:3)) 
mean(i4j3zl(l:  180,1:3))  mean(i5j3zl(l:  180,1:3))  mean(i6j3zl(l:180,l:3)) 
mean(i8j3z  1(1:180,1:3))  mean(i8j3z  1(1:180,1 :3)); 

mean(i lj4zl ( 1 : 1 80, 1 :3))  mean(i2j4zl ( 1:180,1:3))  mean(i3j4zl ( 1:180,1:3)) 
mean(i4j4zl ( 1:180,1 :3))  mean(i5j4z  1(1:180,1:3))  mean(i6j4zl  ( 1:180,1 :3)) 
mean(i8j4zl(  1 : 1 80, 1 :3))  mean(i8j4zl(  1 : 1 80, 1 :3)); 

mean(i lj 5z  1  ( 1 : 1 80, 1 :3))  mean(i2j 5zl(l :  180,1 :3))  mean(i3j 5zl ( 1 : 1 80, 1 :3)) 
mean(i4j5z  1(1:180,1:3))  mean(i5j 5zl  ( 1 : 1 80, 1 :3))  mean(i6j5z  1(1:180,1:3)) 
mean(i8j5zl(l:  180,1:3))  mean(i8j5zl(l:180,l:3)); 

mean(i  1  j 6z  1  ( 1 : 1 80, 1 :3))  rnean(i2j6zl(  1 : 1 80, 1 :3))  mean(i3j6zl(l :  1 80, 1 :3)) 
mean(i4j6zl(  1 : 1 80, 1 :3))  mean(i5j6zl(  1 : 1 80, 1 :3))  mean(i6j6zl ( 1 : 1 80, 1 :3)) 
mean(i8j6zl(l  :1 80,1 :3))mean(i8j6zl(l:  180, 1:3))]; 


B_  1 1 1 =sqrt(n(  1 , 1  )A2+n(  1 ,2)A2+n(  1 ,3))/(  15000*10000); 
B_2 1  l=sqrt(n(  1 ,4)A2+n(  1 ,5)A2+n(  1 ,6))/(l  5000*  1 0000); 
B_3 1  l=sqrt(n(  1 ,7)A2+n(  1 ,8)A2+n(  1 ,9))/(l  5000*  1 0000); 
B_4 1 1 =sqrt(n(  1 , 1 0)A2+n(  1,11  )A2+n(  1 , 1 2 ))/( 15000*10000); 
B_5 1 1 =sqrt(n(  1 , 1 3)A2+n(  1 , 1 4)A2+n(  1 , 1 5))/(  15000*1 0000); 
B_6 1 1 =sqrt(n(  1 , 1 6)A2+n(  1 , 1 7)A2+n(  1 , 1 8))/(  15000*1 0000); 
B_7 1 1 =sqrt(n(  1 , 1 9)A2+n(  1 ,20)A2+n(  1 ,2 1 ))/( 15000*1 0000); 
B_8 1 1 =sqrt(n(  1 ,22)A2+n(  1 ,23)A2+n(  1 ,24))/(  15000*1 0000); 

B_  1 2 1 =sqrt(n(2 , 1  )A2+n(2,2)A2+n(2,3))/(  15000*10000); 
B_221=sqrt(n(2,4)A2+n(2,5)A2+n(2,6))/(l  5000*  10000); 
B_321=sqrt(n(2,7)A2+n(2,8)A2+n(2,9))/(l  5000*  10000); 
B_42 1 =sqrt(n(2, 1 0)A2+n(2, 1 1  )A2+n(2, 1 2))/(  15000*1 0000); 
B_52 1 =sqrt(n(2, 1 3)A2+n(2, 1 4)A2+n(2, 1 5))/(  15000*1 0000); 
B_62 1 =sqrt(n(2, 1 6)A2+n(2, 1 7)A2+n(2, 1 8))/(  15000*1 0000); 
B_721=sqrt(n(2,19)A2+n(2,20)A2+n(2,21))/(  15000*  10000); 
B_821=sqrt(n(2,22)A2+n(2,23)A2+n(2,24))/(  15000*  10000); 

B_  1 3 1 =sqrt(n(3 , 1  )A2+n(3 ,2)A2+n(3 ,3))/(  15000*10000); 
B_23 1 =sqrt(n(3 ,4)A2+n(3 , 5)A2+n(3 ,6))/(  15000*10000); 
B_3  3 1 =sqrt(n(3 ,7)A2+n(3 , 8)A2+n(3 ,9))/ (15000*10000); 
B_43 1 =sqrt(n(3 , 1 0)A2+n(3 , 1 1  )A2+n(3 , 1 2))/(  15000*10000); 
B_53 1 =sqrt(n(3 , 1 3)A2+n(3 , 1 4)A2+n(3 , 1 5))/(  15000*1 0000); 
B_63 1 =sqrt(n(3 , 1 6)A2+n(3 , 1 7)A2+n(3 , 1 8))/(  15000*10000); 
B_73 1 =sqrt(n(3 , 1 9)A2+n(3 ,20)A2+n(3 ,2 1 ))/( 15000*10000); 
B_83 1 =sqrt(n(3 ,22)A2+n(3 ,23)A2+n(3 ,24))/(  1 5000*  1 0000); 
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B  141  =sqrt(n(4, 1  )A2+n(4,2)A2+n(4,3))/(  15000*1 0000); 
B_241=sqrt(n(4,4)A2+n(4,5)A2+n(4,6))/(l  5000*  10000); 
B_34 1 =sqrt(n(4,7)A2+n(4, 8)A2+n(4,9))/ (15000*10000); 
B_44 1 =sqrt(n(4, 1 0)A2+n(4, 1 1  )A2+n(4, 1 2))/(  15000*1 0000); 
B_54 1 =sqrt(n(4, 1 3)A2+n(4, 1 4)A2+n(4, 1 5))/(  15000*1 0000); 
B_64 1 =sqrt(n(4, 1 6)A2+n(4, 1 7)A2+n(4, 1 8))/(  15000*1 0000); 
B_74 1 =sqrt(n(4, 1 9)A2+n(4,20)A2+n(4,2 1 ))/( 15000*1 0000); 
B_841=sqrt(n(4,22)A2+n(4,23)A2+n(4,24))/(  15000*  10000); 

B_  1 5 1 =sqrt(n(5 , 1  )A2+n(5 ,2)A2+n(5 ,3))/(  15000*10000); 
B_25 1 =sqrt(n(5 ,4)A2+n(5 ,5)A2+n(5 ,6))/(  15000*10000); 
B_3  5 1 =sqrt(n(5 ,7)A2+n(5 , 8)A2+n( 5 ,9))/ (15000*10000); 
B_45 1 =sqrt(n(5, 1 0)A2+n(5 , 1 1  )A2+n(5 , 1 2))/(  15000*1 0000); 
B_5  5 1 =sqrt(n(5 , 1 3)A2+n(5 , 1 4)A2+n(5 , 1 5))/(  15000*1 0000); 
B_65 1 =sqrt(n(5 , 1 6)A2+n(5 , 1 7)A2+n(5 , 1 8))/(  15000*10000); 
B_75 1 =sqrt(n(5 , 1 9)A2+n(5 ,20)A2+n(5 ,2 1 ))/( 15000*1 0000); 
B_85 1 =sqrt(n(5 ,22)A2+n(5 ,23)A2+n(5 ,24))/(  1 5000*  1 0000); 

B_  1 6 1 =sqrt(n(6, 1  )A2+n(6,2)A2+n(6,3))/(  15000*1 0000); 
B_261=sqrt(n(6,4)A2+n(6,5)A2+n(6,6))/(l  5000*  10000); 
B_361=sqrt(n(6,7)A2+n(6,8)A2+n(6,9))/(l  5000*  10000); 
B_461=sqrt(n(6, 1 0)A2+n(6, 1  l)A2+n(6, 12))/(  15000*1 0000); 
B_561=sqrt(n(6, 1 3)A2+n(6, 14)A2+n(6, 1 5))/(  15000*1 0000); 
B_66 1 =sqrt(n(6, 1 6)A2+n(6, 1 7)A2+n(6, 1 8))/(  15000*1 0000); 
B_76 1 =sqrt(n(6, 1 9)A2+n(6,20)A2+n(6,2 1 ))/( 15000*1 0000); 
B_861=sqrt(n(6,22)A2+n(6,23)A2+n(6,24))/(  15000*  10000); 


B_level_l=[B_161  B261  B361  B461  B561  B661  B761  B861; 

%  values  in  Tesla 

B  151  B_251  B351  B_451  B_551  B_651  B_751  B_851; 

B141  B241  B341  B441  B541  B641  B741  B841; 

B131  B231  B331  B_431  B531  B631  B731  B831; 

B121  B_221  B_321  B_421  B_521  B_621  B_721  B_821; 

B  ill  B  211  B  311  B_41 1  B_5 1 1  B  611  B  711  B  811]; 
figure(l) 

[X,Y]=meshgrid(x,yy); 
surf(X,  Y,B_level_  1 ); 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 
figure(2) 

C=contour3(X,Y,B_level_l,10); 

clabel(C) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
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title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 
figure(3) 

[DB]=gradient(B_level_  1 , .  5 , .  5); 

D=contour3(X,Y,B_level_l); 

clabel(D) 


hold  on 


quiver(B_level_  1  ,DB) 
hold  off 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  GROUND  LEVEL') 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


load  ilj  lz2.txt;  load  i2j  lz2.txt;  load  i3j  lz2.txt;  load  i4j  lz2.txt;  load  i5j  lz2.txt;  load  i6j  lz2.txt; 
load  i7j lz2.txt;  load  i8j  lz2.txt 

load  ilj2z2.txt;  load  i2j2z2.txt;  load  i3j2z2.txt;  load  i4j2z2.txt;  load  i5j2z2.txt;  load  i6j2z2.txt; 
load  i7j2z2.txt;  load  i8j2z2.txt 

load  ilj3z2.txt;  load  i2j3z2.txt;  load  i3j3z2.txt;  load  i4j3z2.txt;  load  i5j3z2.txt;  load  i6j3z2.txt; 
load  i7j3z2.txt;  load  i8j3z2.txt 

load  ilj4z2.txt;  load  i2j4z2.txt;  load  i3j4z2.txt;  load  i4j4z2.txt;  load  i5j4z2.txt;  load  i6j4z2.txt; 
load  i7j4z2.txt;  load  i8j4z2.txt 

load  ilj5z2.txt;  load  i2j5z2.txt;  load  i3j5z2.txt;  load  i4j5z2.txt;  load  i5j5z2.txt;  load  i6j5z2.txt; 
load  i7j5z2.txt;  load  i8j5z2.txt 

load  ilj6z2.txt;  load  i2j6z2.txt;  load  i3j6z2.txt;  load  i4j6z2.txt;  load  i5j6z2.txt;  load  i6j6z2.txt; 
load  i7j6z2.txt;  load  i8j6z2.txt 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  B  field  calculations  for  ilj lz2  through  i8j lz2 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%n  1 =[mean(i  1  j  1  z2(  1 
1 80, 1 :3))  mean(i2j  lz2(  1 : 1 80, 1 :3))  mean(i3j  lz2(  1 : 1 80, 1 :3))  mean(i4j  lz2(  1 : 1 80, 1 :3)) 
mean(i5j  lz2(  1 : 1 80, 1 :3))  mean(i6j  lz2(  1:180,1:3))  mean(i7j  lz2(  1 : 1 80, 1 :3)) 
mean(i8j  lz2(  1:180,1 :3)); 

mean(i Ij2z2(  1:180,1 :3))  mean(i2j2z2(  1:180,1 :3))  mean(i3j2z2(  1:180,1 :3)) 
mean(i4j2z2(  1:180,1 :3))  mean(i5j2z2(  1:180,1:3))  mean(i6j2z2(  1:180,1 :3)) 
mean(i7j2z2(  1:180,1 :3))  mean(i8j2z2(  1:180,1 :3)); 

mean(i Ij3z2(  1:180,1 :3))  mean(i2j3z2(  1:180,1 :3))  mean(i3j3z2(  1:180,1 :3)) 
mean(i4j3z2(  1:180,1 :3))  mean(i5j3z2(  1:180,1:3))  mean(i6j3z2(  1:180,1 :3)) 
mean(i8j3z2(  1:180,1 :3))  mean(i8j3z2(  1:180,1 :3)); 

mean(i  Ij4z2(  1:180,1 :3))  mean(i2j4z2(  1:180,1 :3))  mean(i3j4z2(  1:180,1 :3)) 
mean(i4j4z2(  1:180,1 :3))  mean(i5j4z2(  1:180,1:3))  mean(i6j4z2(  1:180,1 :3)) 
mean(i8j4z2(  1:180,1 :3))  mean(i8j4z2(  1:180,1 :3)); 

mean(i  lj 5z2(  1:180,1:3))  mean(i2j 5z2(  1:180,1:3))  mean(i3j 5z2(  1:180,1:3)) 
mean(i4j5z2(  1:180,1 :3))  mean(i5j 5z2(  1:180,1:3))  mean(i6j5z2(  1:180,1 :3)) 
mean(i8j 5z2(  1:180,1 :3))  mean(i8j 5z2(  1:180,1 :3)); 

mean(i  Ij6z2(  1 : 1 80, 1 :3))  mean(i2j6z2(  1 : 1 80, 1 :3))  mean(i3j6z2(l :  1 80, 1 :3)) 
mean(i4j6z2(  1 : 1 80, 1 :3))  mean(i5j6z2(  1:180,1:3))  mean(i6j6z2(l :  1 80, 1 :3)) 
mean(i8j6z2(l:  180,1:3))  mean(i8j6z2(l:180,l:3))]; 
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B_  1 1 2=sqrt(n  1(1,1  )A2+n  1  ( 1 ,2)A2+n  1  ( 1 ,3))/(  15000*1 0000); 
B_2 1 2=sqrt(n  1  ( 1 ,4)A2+n  1  ( 1 ,5)A2+n  1  ( 1 ,6))/(  15000*1 0000); 
B_3 1 2=sqrt(n  1  ( 1 ,7)A2+n  1  ( 1 , 8)A2+n  1  ( 1 ,9))/(  15000*10000); 
B_4 1 2=sqrt(n  1(1,1 0)A2+n  1(1,11  )A2+n  1(1,1 2))/(  15000*1 0000); 
B_5 1 2=sqrt(n  1(1,1 3)A2+n  1(1,1 4)A2+n  1(1,1 5))/(  15000*1 0000); 
B_6 1 2=sqrt(n  1(1,1 6)A2+n  1(1,1 7)A2+n  1(1,1 8))/(  15000*10000); 
B_7 1 2=sqrt(n  1(1,1 9)A2+n  1  ( 1 ,20)A2+n  1  ( 1 ,2 1 ))/( 15000*1 0000); 
B_8 1 2=sqrt(n  1  ( 1 ,22)A2+n  1  ( 1 ,23)A2+n  1  ( 1 ,24))/(  15000*1 0000); 

B_  1 22=sqrt(n  1(2,1  )A2+n  1  (2,2)A2+n  1  (2,3))/(  1 5000*  1 0000); 
B_222=sqrt(n  1  (2,4)A2+n  1  (2,5)A2+n  1  (2,6))/(  15000*1 0000); 
B_322=sqrt(n  1  (2,7)A2+n  1  (2,8)A2+n  1  (2,9))/(  15000*1 0000); 
B_422=sqrt(n  1(2,1 0)A2+n  1  (2, 1 1  )A2+n  1(2,1 2 ))/( 15000*1 0000); 
B_522=sqrt(n  1(2,1 3)A2+n  1(2,1 4)A2+n  1(2,1 5))/(  15000*1 0000); 
B_622=sqrt(n  1(2,1 6)A2+n  1(2,1 7)A2+n  1(2,1 8))/(  15000*1 0000); 
B_722=sqrt(n  1(2,1 9)A2+n  1  (2,20)A2+n  1  (2,2 1 ))/( 15000*1 0000); 
B_822=sqrt(n  1  (2,22)A2+n  1  (2,23)A2+n  1  (2,24))/(  15000*1 0000); 

B_  1 32=sqrt(n  1(3,1  )A2+n  1  (3 ,2)A2+n  1  (3 ,3))/(  15000*1 0000); 
B_232=sqrt(n  1  (3 ,4)A2+n  1  (3 ,5)A2+n  1  (3 ,6))/(  15000*1 0000); 
B_332=sqrt(n  1  (3 ,7)A2+n  1  (3 , 8)A2+n  1  (3 ,9»/(  15000*10000); 
B_432=sqrt(n  1(3,1 0)A2+n  1  (3 , 1 1  )A2+n  1(3,1 2))/(  15000*1 0000); 
B_532=sqrt(n  1(3,1 3)A2+n  1(3,1 4)A2+n  1(3,1 5))/(  15000*1 0000); 
B_632=sqrt(n  1(3,1 6)A2+n  1(3,1 7)A2+n  1(3,1 8))/(  15000*1 0000); 
B_732=sqrt(n  1(3,1 9)A2+n  1  (3 ,20)A2+n  1  (3 ,2 1 ))/( 15000*1 0000); 
B_832=sqrt(n  1  (3 ,22)A2+n  1  (3 ,23  )A2+n  1  (3 ,24))/(  15000*1 0000); 

B_  1 42=sqrt(n  1(4,1  )A2+n  1  (4,2)A2+n  1  (4,3))/(  15000*1 0000); 
B_242=sqrt(n  1  (4,4)A2+n  1  (4,5)A2+n  1  (4,6))/(  15000*1 0000); 
B_342=sqrt(n  1  (4,7)A2+n  1  (4,8)A2+n  1  (4,9))/(  15000*1 0000); 
B_442=sqrt(n  1(4,1 0)A2+n  1  (4, 1 1  )A2+n  1(4,1 2))/(  15000*1 0000); 
B_542=sqrt(n  1(4,1 3)A2+n  1  (4, 1 4)A2+n  1(4,1 5))/(  15000*1 0000); 
B_642=sqrt(n  1(4,1 6)A2+n  1  (4, 1 7)A2+n  1(4,1 8))/(  15000*1 0000); 
B_742=sqrt(n  1(4,1 9)A2+n  1  (4,20)A2+n  1  (4,2 1 ))/( 15000*1 0000); 
B_842=sqrt(n  1  (4,22)A2+n  1  (4,23)A2+n  1  (4,24))/(  15000*1 0000); 

B_  1 52=sqrt(n  1(5,1  )A2+n  1  (5 ,2)A2+n  1  (5 ,3))/(  15000*1 0000); 
B_252=sqrt(n  1  (5 ,4)A2+n  1  (5 ,5)A2+n  1  (5,6»/(  15000*1 0000); 
B_352=sqrt(n  1  (5 ,7)A2+n  1  (5 , 8)A2+n  1  (5 ,9))/(  15000*10000); 
B_452=sqrt(n  1(5,1 0)A2+n  1(5,11  )A2+n  1(5,1 2))/(  15000*1 0000); 
B_552=sqrt(n  1(5,1 3)A2+n  1(5,1 4)A2+n  1(5,1 5))/(  15000*1 0000); 
B_652=sqrt(n  1(5,1 6)A2+n  1(5,1 7)A2+n  1(5,1 8))/(  15000*1 0000); 
B_752=sqrt(n  1(5,1 9)A2+n  1  (5 ,20)A2+n  1  (5 ,2 1 ))/( 15000*1 0000); 
B_852=sqrt(n  1  (5 ,22)A2+n  1  (5 ,23)A2+n  1  (5 ,24))/(  15000*1 0000); 
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B_  1 62=sqrt(n  1(6,1  )A2+n  1  (6,2)A2+n  1  (6,3))/(  15000*1 0000); 

B_262=sqrt(n  1  (6,4)A2+n  1  (6,5)A2+n  1  (6,6))/(  15000*1 0000); 

B_362=sqrt(n  1  (6,7)A2+n  1  (6,8)A2+n  1  (6,9))/(  15000*1 0000); 

B_462=sqrt(n  1(6,1 0)A2+n  1  (6, 1 1  )A2+n  1(6,1 2))/(  15000*1 0000); 

B_562=sqrt(n  1(6,1 3)A2+n  1(6,1 4)A2+n  1(6,1 5))/(  15000*1 0000); 

B_662=sqrt(n  1(6,1 6)A2+n  1(6,1 7)A2+n  1(6,1 8))/(  15000*1 0000); 

B_762=sqrt(n  1(6,1 9)A2+n  1  (6,20)A2+n  1  (6,2 1 ))/( 15000*1 0000); 

B_862=sqrt(n  1  (6,22)A2+n  1  (6,23)A2+n  1  (6,24))/(  15000*1 0000); 

B_level_2=[B_162  B  262  B  362  B  462  B  562  B  662  B  762  B  862; 

%  values  in  Tesla 

B_152  B_252  B_352  B_452  B_552  B_652  B_752  B_852; 

B_142  B_242  B_342  B_442  B_542  B_642  B_742  B_842; 

B_132  B_232  B_332  B_432  B_532  B_632  B_732  B_832; 

B_122  B_222  B_322  B_422  B_522  B_622  B_722  B_822; 

B_1 12  B_212  B_312  B_412  B_512  B_612  B_712  B  812]; 
figure(4) 

[X,Y]=meshgrid(x,yy); 

surf(X,Y,B_level_2) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL') 
figure(5) 

C2=contour3(X,Y,B_level_2,10); 

clabel(C2) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’ SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL') 
figure(6) 

[DB2] =gradient(B_level_2 , .  5 , .  5  ) ; 

D2=contour3(X,Y,B_level_2); 

clabel(D2) 

hold  on 

quiver(B_level_2,DB2) 
hold  off 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  977  mm  ABOVE 
FLOOR  LEVEL’) 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%B  field  calculations  for  ilj  lz3  through  i8j  lz3 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


load  ilj lz3.txt;  load  i2j lz3.txt;  load  i3j lz3.txt;  load  i4j  lz3.txt;  load  i5j  lz3.txt;  load  i6j lz3.txt; 
load  i7j  lz3.txt;  load  i8j  lz3.txt 
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load  ilj2z3.txt;  load  i2j2z3.txt;  load  i3j2z3.txt;  load  i4j2z3.txt;  load  i5j2z3.txt;  load  i6j2z3.txt; 
load  i7j2z3.txt;  load  i8j2z3.txt 

load  ilj3z3.txt;  load  i2j3z3.txt;  load  i3j3z3.txt;  load  i4j3z3.txt;  load  i5j3z3.txt;  load  i6j3z3.txt; 
load  i7j3z3.txt;  load  i8j3z3.txt 

load  ilj4z3.txt;  load  i2j4z3.txt;  load  i3j4z3.txt;  load  i4j4z3.txt;  load  i5j4z3.txt;  load  i6j4z3.txt; 
load  i7j4z3.txt;  load  i8j4z3.txt 

load  ilj5z3.txt;  load  i2j5z3.txt;  load  i3j5z3.txt;  load  i4j5z3.txt;  load  i5j5z3.txt;  load  i6j5z3.txt; 
load  i7j5z3.txt;  load  i8j5z3.txt 

load  ilj6z3.txt;  load  i2j6z3.txt;  load  i3j6z3.txt;  load  i4j6z3.txt;  load  i5j6z3.txt;  load  i6j6z3.txt; 
load  i7j6z3.txt;  load  i8j6z3.txt 

n3=[mean(i lj  lz3(  1 : 1 80, 1 :3))  mean(i2j  lz3(l :  180,1:3))  mean(i3j lz3(  1 : 1 80, 1 :3)) 
mean(i4jlz3(l:  180,1:3))  mean(i5jlz3(l:  180,1:3))  mean(i6jlz3(l:180,l:3)) 
mean(i7j  lz3(  1 : 1 80, 1 :3))  mean(i8j  lz3(  1 : 1 80, 1 :3)); 

mean(i Ij2z3(  1 : 1 80, 1 :3))  mean(i2j2z3(  1 : 1 80, 1 :3))  mean(i3j2z3(  1 : 1 80, 1 :3)) 
mean(i4j2z3(  1:180,1 :3))  mean(i5j2z3(  1:180,1:3))  mean(i6j2z3(  1 : 1 80, 1 :3)) 
mean(i7j2z3(  1 : 1 80, 1 :3))  mean(i8j2z3(  1 : 160, 1 :3)); 

mean(i Ij3z3(  1 : 1 80, 1 :3))  mean(i2j3z3(  1 : 1 80, 1 :3))  mean(i3j3z3(  1 : 1 80, 1 :3)) 
mean(i4j3z3(l:  180,1:3))  mean(i5j3z3(l:  170,1:3))  mean(i6j3z3(l:180,l:3)) 
mean(i8j3z3(  1 : 1 80, 1 :3))  mean(i8j3z3(  1 : 1 80, 1 :3)); 

mean(i Ij4z3(  1:180,1 :3))  mean(i2j4z3(  1:180,1 :3))  mean(i3j4z3(  1 : 1 80, 1 :3)) 
mean(i4j4z3(  1:180,1 :3))  mean(i5j4z3(  1:180,1:3))  mean(i6j4z3(  1 : 1 80, 1 :3)) 
mean(i8j4z3(  1 : 1 80, 1 :3))  mean(i8j4z3(  1 : 1 80, 1 :3)); 

mean(i lj 5z3(  1:180,1 :3))  mean(i2j 5z3(  1:180,1 :3))  mean(i3j 5z3(  1 : 1 80, 1 :3)) 
mean(i4j 5z3(  1:180,1 :3))  mean(i5j 5z3(  1:180,1:3))  mean(i6j5z3(  1 : 1 80, 1 :3)) 
mean(i8j5z3(  1 : 1 80, 1 :3))  mean(i8j5z3(  1 : 1 80, 1 :3)); 

mean(i  Ij6z3(  1:180,1:3))  mean(i2j6z3(  1:180,1:3))  mean(i3j6z3(  1 : 1 80, 1 :3)) 
mean(i4j6z3(  1 : 1 80, 1 :3))  mean(i5j6z3(  1 : 1 80, 1 :3))  mean(i6j6z3(l :  1 80, 1 :3)) 
mean(i8j6z3(  1:180,1:3))  mean(i8j6z3(  1 : 1 80, 1 :3))] ; 

B_1 1 3=sqrt(n3(  1 ,  l)A2+n3(  1 ,2)A2+n3(  1 ,3))/(  15000*1 0000); 

B_2 1 3=sqrt(n3(  1 ,4)A2+n3(  1 ,5)A2+n3(  1 ,6))/(  15000*1 0000); 

B_3 1 3=sqrt(n3  ( 1 ,7)A2+n3  ( 1 , 8)A2+n3 ( 1 ,9))/ (15000*10000); 

B_4 1 3=sqrt(n3(  1 , 1 0)A2+n3(  1 , 1 1  )A2+n3(  1 , 1 2))/(  15000*1 0000); 

B_5 1 3=sqrt(n3(  1 , 1 3)A2+n3(  1 , 14)A2+n3(  1 , 1 5))/(  1 5000*  1 0000); 

B_6 1 3=sqrt(n3  (1,1 6)A2+n3  (1,1 7)A2+n3  (1,1 8))/(  1 5000*  1 0000); 

B_7 1 3=sqrt(n3(  1 , 1 9)A2+n3(  1 ,20)A2+n3(  1 ,2 1))/(  1 5000*  1 0000); 

B_8 1 3=sqrt(n3(  1 ,22)A2+n3(  1 ,23)A2+n3(  1 ,24))/(  15000*1 0000); 

B_123=sqrt(n3(2,l)A2+n3(2,2)A2+n3(2,3))/(  15000*  10000); 
B_223=sqrt(n3(2,4)A2+n3(2,5)A2+n3(2,6))/(  15000*  10000); 
B_323=sqrt(n3(2,7)A2+n3(2,8)A2+n3(2,9))/(  15000*  10000); 

B_423=sqrt(n3(2, 1 0)A2+n3(2, 1 1  )A2+n3(2, 12))/(  15000*1 0000); 

B_523=sqrt(n3(2, 1 3)A2+n3(2, 14)A2+n3(2, 1 5))/(  15000*1 0000); 

B_623=sqrt(n3(2, 1 6)A2+n3(2, 1 7)A2+n3(2, 1 8))/(  1 5000*  1 0000); 
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B_723=sqrt(n3(2,19)A2+n3(2,20)A2+n3(2,21))/(  15000*  10000); 
B_823=sqrt(n3(2,22)A2+n3(2,23)A2+n3(2,24))/(  15000*  10000); 

B_133=sqrt(n3(3,l)A2+n3(3,2)A2+n3(3,3))/(  15000*  10000); 
B_233=sqrt(n3(3,4)A2+n3(3,5)A2+n3(3,6))/(  15000*  10000); 
B_333=sqrt(n3(3,7)A2+n3(3,8)A2+n3(3,9))/(  15000*  10000); 
B_433=sqrt(n3(3,10)A2+n3(3,l  l)A2+n3(3,12))/(  15000*  10000); 
B_533=sqrt(n3(3, 1 3)A2+n3(3, 14)A2+n3(3, 1 5))/(  1 5000*  1 0000); 
B_633=sqrt(n3(3,l  6)A2+n3(3, 1 7)A2+n3(3, 1 8))/(  15000*1 0000); 
B_733=sqrt(n3(3,19)A2+n3(3,20)A2+n3(3, 2 1))/(  15000*  10000); 
B_833=sqrt(n3(3,22)A2+n3(3,23)A2+n3(3,24))/(  15000*  10000); 

B_143=sqrt(n3(4,l)A2+n3(4,2)A2+n3(4,3))/(  15000*  10000); 
B_243=sqrt(n3(4,4)A2+n3(4,5)A2+n3(4,6))/(  15000*  10000); 
B_343=sqrt(n3(4,7)A2+n3(4,8)A2+n3(4,9))/(  15000*  10000); 
B_443=sqrt(n3(4, 1 0)A2+n3(4, 1 1  )A2+n3(4, 12))/(  1 5000*  1 0000); 
B_543=sqrt(n3(4, 1 3)A2+n3(4, 14)A2+n3(4, 1 5))/(  1 5000*  1 0000); 
B_643=sqrt(n3(4,16)A2+n3(4,17)A2+n3(4,18))/(  15000*  10000); 
B_743=sqrt(n3(4,19)A2+n3(4,20)A2+n3(4, 2 1))/(  15000*  10000); 
B_843=sqrt(n3(4,22)A2+n3(4,23)A2+n3(4,24))/(  15000*  10000); 

B_153=sqrt(n3(5,l)A2+n3(5,2)A2+n3(5,3))/(  15000*  10000); 
B_253=sqrt(n3(5,4)A2+n3(5,5)A2+n3(5,6))/(  15000*  10000); 

B_3  5  3=sqrt(n3  (5 ,7)A2+n3  (5 , 8)A2+n3  (5 ,9))/ (15000*10000); 

B_45  3=sqrt(n3  (5 , 1 0)A2+n3  (5 , 1 1  )A2+n3  (5 , 1 2))/ (15000*10000); 
B_553=sqrt(n3(5,13)A2+n3(5,14)A2+n3(5,15))/(  15000*  10000); 
B_653=sqrt(n3(5, 1 6)A2+n3(5, 1 7)A2+n3(5, 1 8))/(  1 5000*  1 0000); 
B_753=sqrt(n3(5,19)A2+n3(5,20)A2+n3(5, 2 1))/(  15000*  10000); 
B_853=sqrt(n3(5,22)A2+n3(5,23)A2+n3(5,24))/(  15000*  10000); 

B_163=sqrt(n3(6,l)A2+n3(6,2)A2+n3(6,3))/(  15000*  10000); 
B_263=sqrt(n3(6,4)A2+n3(6,5)A2+n3(6,6))/(  15000*  10000); 
B_363=sqrt(n3(6,7)A2+n3(6,8)A2+n3(6,9))/(  15000*  10000); 
B_463=sqrt(n3(6, 1 0)A2+n3(6, 1  l)A2+n3(6, 12))/(  1 5000*  1 0000); 
B_563=sqrt(n3(6, 1 3)A2+n3(6, 14)A2+n3(6, 1 5))/(  15000*1 0000); 
B_663=sqrt(n3(6, 1 6)A2+n3(6, 1 7)A2+n3(6, 1 8))/(  1 5000*  1 0000); 
B_763=sqrt(n3(6,19)A2+n3(6,20)A2+n3(6, 2 1))/(  15000*  10000); 
B_863=sqrt(n3(6,22)A2+n3(6,23)A2+n3(6,24))/(  15000*  10000); 

B_level_3=[B_163  B  263  B  363  B  463  B  563  B  663  B  763  B  863 
%  values  in  Tesla 

B153  B_253  B_353  B_453  B_553  B_653  B_753  B_853; 
B_143  B_243  B_343  B_443  B_543  B_643  B_743  B_843; 
B133  B_233  B_333  B_433  B_533  B_633  B_733  B_833; 
B_123  B_223  B_323  B_423  B_523  B_623  B_723  B_823; 
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B_1 13  B  213  B  313  B  413  B513  B  613  B  713  B  813]; 
figure(7) 

[X,Y]=meshgrid(x,yy); 

surf(X,Y,B_level_3) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL’) 
figure(8) 

C3=contour3  (X, Y,B  level_3 ,10); 
clabel(C3) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL') 
figure(9) 

[DB3  ] =gradient(B_level_3 , .  5 , .  5  ) ; 

D3 =c  ontour3  (X,  Y  ,B_lcvel_3); 

clabel(D3) 

hold  on 

quiver(B_level_3  ,DB3) 
hold  off 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1250  mm  ABOVE 
FLOOR  LEVEL') 

%B  field  calculations  for  i  1  j  1  z4  through  i8j  lz4 

%%%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%% 

load  ilj  lz4.txt;  load  i2j  lz4.txt;  load  i3j  lz4.txt;  load  i4j  lz4.txt;  load  i5j  lz4.txt;  load  i6j  lz4.txt; 
load  i7j lz4.txt;  load  i8j  lz4.txt 

load  ilj2z4.txt;  load  i2j2z4.txt;  load  i3j2z4.txt;  load  i4j2z4.txt;  load  i5j2z4.txt;  load  i6j2z4.txt; 
load  i7j2z4.txt;  load  i8j2z4.txt 

load  ilj3z4.txt;  load  i2j3z4.txt;  load  i3j3z4.txt;  load  i4j3z4.txt;  load  i5j3z4.txt;  load  i6j3z4.txt; 
load  i7j3z4.txt;  load  i8j3z4.txt 

load  ilj4z4.txt;  load  i2j4z4.txt;  load  i3j4z4.txt;  load  i4j4z4.txt;  load  i5j4z4.txt;  load  i6j4z4.txt; 
load  i7j4z4.txt;  load  i8j4z4.txt 

load  ilj5z4.txt;  load  i2j5z4.txt;  load  i3j5z4.txt;  load  i4j5z4.txt;  load  i5j5z4.txt;  load  i6j5z4.txt; 
load  i7j5z4.txt;  load  i8j5z4.txt 

load  ilj6z4.txt;  load  i2j6z4.txt;  load  i3j6z4.txt;  load  i4j6z4.txt;  load  i5j6z4.txt;  load  i6j6z4.txt; 
load  i7j6z4.txt;  load  i8j6z4.txt 

n4=[mean(i lj  lz4(  1:180,1:3))  mean(i2j  1  z4(  1:180,1 :3))  mean(i3j  lz4(  1:180,1 :3)) 
mean(i4j  lz4(  1:180,1 :3))  mean(i5j  lz4(  1:180,1:3))  mean(i6j  lz4(  1:180,1 :3)) 
mean(i7j  lz4(  1:180,1 :3))  mean(i8j  lz4(  1:180,1 :3)); 

mean(ilj2z4(  1 : 1 80, 1 :3))  mean(i2j2z4(  1 : 170, 1 :3))  mean(i3j2z4(l :  1 80, 1 :3)) 
mean(i4j2z4(  1:180,1 :3))  mean(i5j2z4(  1:180,1:3))  mean(i6j2z4(  1:180,1 :3)) 
mean(i7j2z4(  1 : 1 80, 1 :3))  mean(i8j2z4(  1 : 160, 1 :3)); 
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mean(i  Ij3z4(  1:180,1 :3))  mean(i2j3z4(  1:180,1 :3))  mean(i3j3z4(  1:180,1 :3)) 
mean(i4j3z4(  1 : 1 80, 1 :3))  mean(i5j3z4(  1 : 170, 1 :3))  mean(i6j3z4(l :  1 80, 1 :3)) 
mean(i8j3z4(  1:180,1 :3))  mean(i8j3z4(  1:180,1 :3)); 

mean(i Ij4z4(  1:180,1 :3))  mean(i2j4z4(  1:180,1 :3))  mean(i3j4z4(  1:180,1 :3)) 
mean(i4j4z4(  1:180,1 :3))  mean(i5j4z4(  1:180,1:3))  mean(i6j4z4(  1:180,1 :3)) 
mean(i8j4z4(  1:180,1 :3))  mean(i8j4z4(  1:180,1 :3)); 

mean(i  lj 5z4(  1:180,1:3))  mean(i2j 5z4(  1:180,1:3))  mean(i3j 5z4(  1:180,1:3)) 
mean(i4j5z4(  1:180,1 :3))  mean(i5j 5z4(  1:180,1:3))  mean(i6j5z4(  1:180,1 :3)) 
mean(i8j 5z4(  1:180,1 :3))  mean(i8j 5z4(  1:180,1 :3)); 

mean(i  Ij6z4(  1 : 1 80, 1 :3))  mean(i2j6z4(  1 : 1 80, 1 :3))  mean(i3j6z4(l :  1 80, 1 :3)) 
mean(i4j6z4(  1 : 1 80, 1 :3))  mean(i5j6z4(  1 : 1 80, 1 :3))  mean(i6j6z4(l :  1 80, 1 :3)) 
mean(i8j6z4(  1:180,1 :3))  mean(i8j6z4(  1:180,1 :3))] ; 


B_  1 1 4=sqrt(n4(  1 , 1  )A2+n4(  1 ,2)A2+n4(  1 ,3))/(  15000*1 0000); 
B_2 1 4=sqrt(n4(  1 ,4)A2+n4(  1 ,5)A2+n4(  1 ,6))/(  15000*1 0000); 
B_3 1 4=sqrt(n4(  1 ,7)A2+n4(  1 ,8)A2+n4(  1 ,9))/(  15000*1 0000); 
B_4 1 4=sqrt(n4(  1 , 1 0)A2+n4(  1,11  )A2+n4(  1 , 1 2))/(  15000*1 0000); 
B_5 1 4=sqrt(n4(  1 , 1 3)A2+n4(  1 , 1 4)A2+n4(  1 , 1 5))/(  15000*1 0000); 
B_6 1 4=sqrt(n4(  1 , 1 6)A2+n4(  1 , 1 7)A2+n4(  1 , 1 8))/(  15000*1 0000); 
B_7 1 4=sqrt(n4(  1 , 1 9)A2+n4(  1 ,20)A2+n4(  1 ,2 1 ))/( 15000*1 0000); 
B_8 1 4=sqrt(n4(  1 ,22)A2+n4(  1 ,23)A2+n4(  1 ,24))/(  15000*1 0000); 

B_124=sqrt(n4(2,l)A2+n4(2,2)A2+n4(2,3))/(  15000*  10000); 
B_224=sqrt(n4(2,4)A2+n4(2,5)A2+n4(2,6))/(  15000*  10000); 
B_324=sqrt(n4(2,7)A2+n4(2,8)A2+n4(2,9))/(  15000*  10000); 
B_424=sqrt(n4(2, 1 0)A2+n4(2, 1  l)A2+n4(2, 12))/(  1 5000*  1 0000); 
B_524=sqrt(n4(2, 1 3  )A2+n4(2, 1 4)A2+n4(2, 1 5))/(  15000*1 0000); 
B_624=sqrt(n4(2, 1 6)A2+n4(2, 1 7)A2+n4(2, 1 8))/(  15000*1 0000); 
B_724=sqrt(n4(2,19)A2+n4(2,20)A2+n4(2, 2 1))/(  15000*  10000); 
B_824=sqrt(n4(2,22)A2+n4(2,23)A2+n4(2,24))/(  15000*  10000); 

B_  1 34=sqrt(n4(3 , 1  )A2+n4(3 ,2)A2+n4(3 ,3))/(  15000*10000); 
B_234=sqrt(n4(3,4)A2+n4(3,5)A2+n4(3,6))/(  15000*  10000); 
B_334=sqrt(n4(3,7)A2+n4(3,8)A2+n4(3,9))/(  15000*  10000); 
B_434=sqrt(n4(3 , 1 0)A2+n4(3 , 1 1  )A2+n4(3 , 1 2))/(  1 5000*  1 0000); 
B_534=sqrt(n4(3, 1 3)A2+n4(3, 14)A2+n4(3, 1 5))/(  1 5000*  1 0000); 
B_634=sqrt(n4(3 , 1 6)A2+n4(3 , 1 7)A2+n4(3 , 1 8))/(  15000*1 0000); 
B_734=sqrt(n4(3,19)A2+n4(3,20)A2+n4(3, 2 1))/(  15000*  10000); 
B_834=sqrt(n4(3,22)A2+n4(3,23)A2+n4(3,24))/(  15000*  10000); 

B_144=sqrt(n4(4,l)A2+n4(4,2)A2+n4(4,3))/(  15000*  10000); 
B_244=sqrt(n4(4,4)A2+n4(4,5)A2+n4(4,6))/(  15000*  10000); 
B_344=sqrt(n4(4,7)A2+n4(4,8)A2+n4(4,9))/(  15000*  10000); 
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B_444=sqrt(n4(4, 1 0)A2+n4(4, 1 1  )A2+n4(4, 1 2 ))/( 15000*1 0000); 

B_544=sqrt(n4(4, 1 3)A2+n4(4, 1 4)A2+n4(4, 1 5))/(  15000*1 0000); 

B_644=sqrt(n4(4, 1 6)A2+n4(4, 1 7)A2+n4(4, 1 8))/(  15000*1 0000); 
B_744=sqrt(n4(4,19)A2+n4(4,20)A2+n4(4,21))/(  15000*  10000); 
B_844=sqrt(n4(4,22)A2+n4(4,23)A2+n4(4,24))/(  15000*  10000); 

B_  1 54=sqrt(n4(5 , 1  )A2+n4(5 ,2)A2+n4(5 ,3))/(  15000*10000); 
B_254=sqrt(n4(5,4)A2+n4(5,5)A2+n4(5,6))/(  15000*  10000); 

B_354=sqrt(n4(5 ,7)A2+n4(5 , 8)A2+n4(5 ,9))/(  15000*10000); 

B_454=sqrt(n4(5 , 1 0)A2+n4(5 , 1 1  )A2+n4(5 , 1 2))/(  15000*10000); 

B_554=sqrt(n4(5,l  3)A2+n4(5, 14)A2+n4(5, 1 5))/(  15000*1 0000); 

B_654=sqrt(n4(5 , 1 6)A2+n4(5 , 1 7)A2+n4(5 , 1 8))/(  15000*1 0000); 
B_754=sqrt(n4(5,19)A2+n4(5,20)A2+n4(5, 2 1))/(  15000*  10000); 
B_854=sqrt(n4(5,22)A2+n4(5,23)A2+n4(5,24))/(  15000*  10000); 

B_164=sqrt(n4(6,l)A2+n4(6,2)A2+n4(6,3))/(  15000*  10000); 
B_264=sqrt(n4(6,4)A2+n4(6,5)A2+n4(6,6))/(  15000*  10000); 
B_364=sqrt(n4(6,7)A2+n4(6,8)A2+n4(6,9))/(  15000*  10000); 

B_464=sqrt(n4(6, 1 0)A2+n4(6, 1  l)A2+n4(6, 12))/(  15000*1 0000); 

B_564=sqrt(n4(6, 1 3)A2+n4(6, 14)A2+n4(6, 1 5))/(  15000*1 0000); 

B_664=sqrt(n4(6, 1 6)A2+n4(6, 1 7)A2+n4(6, 1 8))/(  15000*1 0000); 

B_764=sqrt(n4(6, 19)A2+n4(6,20)A2+n4(6, 2 1))/(  15000*  10000); 
B_864=sqrt(n4(6,22)A2+n4(6,23)A2+n4(6,24))/(  15000*  10000); 

B_level_4=[B_164  B  264  B  364  B  464  B  564  B  664  B  764  B  864; 

%  values  in  Tesla 

B_154  B_254  B_354  B_454  B_554  B_654  B_754  B_854; 

B144  B_244  B_344  B_444  B_544  B_644  B_744  B_844; 

B134  B_234  B_334  B_434  B_534  B_634  B_734  B_834; 

B_124  B_224  B_324  B_424  B_524  B_624  B_724  B_824; 

B_1 14  B_214  B  314  B_414  B_514  B_614  B_714  B  814]; 
figure(lO) 

[X,Y]=meshgrid(x,yy) 

surf(X,Y,B_level_4) 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(' SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
figure(l  1) 

C4=contour3  (X,Y,B_lcvcl_4, 1 0) ; 
clabel(C4) 

xlabel('X  GRID  COORDINATE');ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title('SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
figure(12) 

[DB4] =gradient(B_level_4 , .  5 , .  5  ) ; 
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D4=contour3(X,Y,B_level_4); 

clabel(D4) 

hold  on 

quiver(B_level_4,DB4) 
hold  off 

xlabel('X  GRID  COORDINATE’);ylabel(’Y  GRID  COORDINATE’);zlabel(’TESLA’) 
title(’ SURVEY  1:  MAGNETIC  FIELD  MAGNITUDE  (TESLA)  AT  1517  mm  ABOVE 
FLOOR  LEVEL') 
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APPENDIX  I.  NPSAT1  AIR-BEARING  LABORATORY  MAGNETIC 
FIELD  SURVEY  NO.  3  MATLAB  PROGRAM 


This  Appendix  contains  the  third  MATLAB  program  written  to  detennine  the  mag¬ 
netic  field  that  resides  in  the  SSAG  laboratory. 


%  LCDR  Eric  W.  Herbert,  USN,  7/19/04 

%  Air  Bearing  Magnetic  Field  Determination:  Field  Measurement  Data  3 
%  Three  sets  of  meausrement  values  are  used.  The  measurements  were 
%  taken  with  the  magentometer  stationed  on  the  air  bearing.  The  air 
%  bearing  was  rotated  360  degrees  about  the  Z  axis.  Samples  taken  every 
%  15  degrees.  Pitched  plus  and  minus  %  15  degrees. 

%  This  algorithm’s  purpose  is  to  load  the  measured  data, 

%  remove  the  magnetic  north  measurement  (not  required),  convert 
%  the  Honeywell  HM2300  Magnetometer  cooridinate  system  to  the 
%  cooridinate  system  laid  out  in  the  lab.  The  magnetometer  readings  are 
%  measured  in  counts.  These  are  converted  to  Tesla  by  the  equation: 

%  (counts(l  gauss/15000  counts)/ 1  tesla/10000  gauss).  Additionally,  it  will 
%  identify  the  number  of  samples  as  280.  This  is  from  approx  10  seconds  worth  of 
%  measurements.  The  samples  will  be  averaged  and  used  to  calculate  the 
%  magnetic  field  about  the  air  bearing  as  it  is  rotated  360  and  pitched  15 
%  degrees. 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


clear  all,clf,clc 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%  TIER  TWO:  SECOND  TEST 
%  load  measured  values 

load  Incln0_000.txt;  load  Incln0_030.txt;  load  Incln0_060.txt;  load  Incln0_090.txt; 
load  Incln0_120.txt;  load  Incln0_150.txt;  load  Incln0_180.txt;  load  Incln0_210.txt; 
load  Incln0_240.txt;  load  Incln0_270.txt;  load  Incln0_300.txt;  load  Incln0_330.txt; 


load  I30_000.txt;  load  I30_030.txt;  load  I30_060.txt;  load  I30_090.txt; 
load  I30_120.txt;  load  I30_150.txt;  load  I30_180.txt;  load  I30_210.txt; 
load  I30_240.txt;  load  I30_270.txt;  load  I30_300.txt;  load  I30_330.txt; 


load  Ineg30_000.txt;  load  Ineg30_030.txt;  load  Ineg30_060.txt;  load  Ineg30_090.txt; 
load  Ineg30_120.txt;  load  Ineg30_150.txt;  load  Ineg30_180.txt;  load  Ineg30_210.txt; 
load  Ineg30_240.txt;  load  Ineg30_270.txt;  load  Ineg30_300.txt;  load  Ineg30_330.txt; 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


m=[mean(Incln0_000(  1 :280, 1 :3));  mean(Incln0_030(  1 :280, 1 :3)); 
mean(Incln0_060(  1 :280, 1 :3));  mean(Incln0_090(  1 :280, 1 :3)); 
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mean(Incln0_120(  1:280, 1:3));  mean(InclnO_l 50(1:280, 1:3));  mean(InclnO_l 80(1:280, 1:3)); 
mean(InclnO_2 1 0(  1 :280, 1 :3)); 

mean(Incln0_240(  1:280,1 :3));  mean(Incln0_270(  1 :280, 1 :3));  mean(Incln0_300(  1 :280, 1 :3)); 
mean(Incln0_330(  1 :280, 1 :3))] ; 
m=m.*1.5e-8; 

m_mag=[(sqrt(m(  1 ,  l)A2+m(  1 ,2)A2+m(  1 ,3)A2)); 

(sqrt(m(2,l)A2+m(2,2)A2+m(2,3)A2)); 

(sqrt(m(3, 1  )A2+m(3 ,2)A2+m(3 ,3)A2)); 

(sqrt(m(4,l)A2+m(4,2)A2+m(4,3)A2)); 

(sqrt(m(5 , 1  )A2+m(5 ,2)A2+m(5 ,3)A2)); 

(sqrt(m(6,l)A2+m(6,2)A2+m(6,3)A2)); 

(sqrt(m(7,l)A2+m(7,2)A2+m(7,3)A2)); 

(sqrt(m(  8 , 1  )A2+m(8 ,2)A2+m(  8 ,3)A2)); 

(sqrt(m(9,l)A2+m(9,2)A2+m(9,3)A2)); 

(sqrt(m(  10,1  )A2+m(  1 0,2)A2+m(  1 0,3)A2)); 

(sqrt(m(  1 1 ,  l)A2+m(  1 1 ,2)A2+m(  1 1 ,3)A2)); 

(sqrt(m(  12,1  )A2+m(  1 2,2)A2+m(  1 2,3)A2))] ; 

ml=[mean(I30_000(  1 :280, 1:3));  mean(I30_030(  1 :280, 1 :3));  mean(I30_060(  1 :280, 1 :3)); 
mean(I30_090(  1:280, 1:3)); 

mean(I30_120(  1:280, 1:3));  mean(I30_l 50(1:280, 1:3));  mean(I30_l 80(1:280, 1:3)); 
mean(I30_2 10(1:280, 1:3)); 

mean(I30_240(  1 :280, 1 :3));  mean(I30_270(  1 :280, 1 :3));  mean(I30_300(  1:280,1 :3)); 
mean(I30_330(  1 :280, 1 :3))]; 
ml=ml.*1.5e-8; 

ml_mag=[(sqrt(m  1(1,1  )A2+m  1  ( 1 ,2)A2+m  1  ( 1 ,3)A2)); 

(sqrt(m  1(2,1  )A2+m  1  (2,2)A2+m  1  (2,3)A2)); 

(sqrt(m  1(3,1  )A2+m  1  (3 ,2)A2+m  1  (3 ,3)A2)); 

(sqrt(m  1(4,1  )A2+m  1  (4,2)A2+m  1  (4,3)A2)); 

(sqrt(m  1(5,1  )A2+m  1  (5 ,2)A2+m  1  (5 ,3)A2)); 

(sqrt(m  1(6,1  )A2+m  1  (6,2)A2+m  1  (6,3  )A2)); 

(sqrt(m  1(7,1  )A2+m  1  (7,2)A2+m  1  (7,3)A2)); 

(sqrt(m  1(8,1  )A2+m  1  (8,2)A2+m  1  (8,3)A2)); 

(sqrt(m  1(9,1  )A2+m  1  (9,2)A2+m  1  (9,3)A2)); 

(sqrt(m  1(10,1  )A2+m  1  ( 1 0,2)A2+m  1  ( 1 0,3)A2)); 

(sqrt(ml(l  l,l)A2+ml(l  l,2)A2+ml(l  1,3)A2)); 

(sqrt(m  1(12,1  )A2+m  1  ( 1 2,2)A2+m  1  ( 1 2,3)A2))] ; 

m2=[mean(Ineg30_000(  1 :280, 1 :3));  mean(Ineg30_030(  1 :280, 1 :3)); 
mean(Ineg30_060(  1 :280, 1:3));  mean(Ineg30_090(  1 :280, 1 :3)); 

mean(Ineg30_120(  1 :280, 1 :3));  mean(Ineg30_150(  1 :280, 1 :3)); 
mean(Ineg30_l  80(  1 :280, 1:3));  mean(Ineg30_2 1 0(  1 :280, 1 :3)); 

mean(Ineg30_240(  1 :280, 1 :3));  mean(Ineg30_270(  1 :280, 1 :3)); 
mean(Ineg30_300(  1 :280, 1:3));  mean(Ineg30_330(  1 :280, 1 :3))] ; 
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m2=m2.*1.5e-8; 

m2_mag=[(sqrt(m2(  1 ,  l)A2+m2(  1 ,2)A2+m2(  1 ,3)A2)); 
(sqrt(m2(2, 1  )A2+m2(2,2)A2+m2(2,3)A2)); 
(sqrt(m2(3 , 1  )A2+m2(3 ,2)A2+m2(3 ,3)A2)); 
(sqrt(m2(4,l)A2+m2(4,2)A2+m2(4,3)A2)); 
(sqrt(m2(5 , 1  )A2+m2(5 ,2)A2+m2(5 ,3)A2)); 
(sqrt(m2(6,l)A2+m2(6,2)A2+m2(6,3)A2)); 
(sqrt(m2(7,l)A2+m2(7,2)A2+m2(7,3)A2)); 
(sqrt(m2(8,l)A2+m2(8,2)A2+m2(8,3)A2)); 
(sqrt(m2(9,l)A2+m2(9,2)A2+m2(9,3)A2)); 
(sqrt(m2(  10,1  )A2+m2(  1 0,2)A2+m2(  1 0,3)A2)); 
(sqrt(m2(  1 1 ,  l)A2+m2(  1 1 ,2)A2+m2(  1 1 ,3)A2)); 
(sqrt(m2(  12,1  )A2+m2(  1 2,2)A2+m2(  1 2,3)A2))] ; 


r=. 0254*9. 5; 

rl=. 866*9. 5*. 0254; 

r2=rl; 

phi=linspace(0,360,12)*pi/180; 

x=(r*cos(phi))'; 

y=(r*sin(phi))'; 

xl=(r2*cos(phi))'; 

yl=(r2*sin(phi))'; 

x2=xl; 

y2=yl; 

z=zeros(size(phi')); 
z  1 =.  5  *  ones(size(phi’)); 
z2=-z  1 ; 
figure(l) 

plot3(x,y,z),grid  on,  hold  on 

plot3(xl,yl,zl) 

plot3(x2,y2,z2) 

quiver3  (x,y  ,z,m_mag( : ,  1  ),m( :  ,2),m( :  ,3),V) 
quiver3(x  1  ,y  1  ,m  l_mag,m  1  (: ,  1  ),m  1  (:  ,2),m  1  ( :  ,3),’b’) 
quiver3(x2,y2,m2_mag,m2(:,l),m2(:,2),m2(:,3),'g') 
xlabel(’X'),ylabel('Y'),zlabel(’Normalized  Magnetic  Field  Direction') 

title(’NPSATl  AIR-BEARING  MAGNETIC  FIELD  DIRECTION:  SURVEY  3,  TIERS  1,2,3’) 
figure(2) 

plot3(x,y,m_mag,'r'),grid  on 

xlabel('X'),ylabel('Y'),zlabel(’Magnetic  Field  Magnitude  (Tesla)') 

title(’NPSATl  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE;  SURYVEY  3,TIER  1’) 
figure(3) 

plot3(x,y,m_mag,'r'),grid  on 
hold  on 
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quiver3(x,y,mmag,m(:,l),m(:,2),m(:,3),'r') 

xlabel('X'),ylabel('Y'),zlabel(’Normalized  Magnetic  Field  Magnitude') 
title(’NPSATl  AIR-BEARING  MAGNETIC  FIELD  MAGNITUDE  NORMALIZED  VEC¬ 
TOR;  SURVEY  3, TIER  F) 
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APPENDIX  J.  NPSAT1  AIR-BEARING  “HARDWARE-IN-THE- 

LOOP”  DYNAMIC  MODEL 

This  Appendix  displays  the  SIMULINK  model  and  sub-models  used  during  air¬ 
bearing  hardware-in-the-loop  expiraments. 


Figure  J.l  NPSAT1  “Hardware-in-the-Loop”  Simulink  Model 


NPSAT1  Air-bearing  RS-232 


Figure  J.2  RS232  Communication  Channels 
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ATTITUDE  ERROR  BLOCK 


b/|b|  1/|b| 


This  block  represents  an  approximation  to  the  position  part  of  the  quaternion  control  law. 

Sidi  (  Ref  5.  pg  156)  suggests  using  e=  [q1q4  q2q4  q3q4]  as  an  attitude  error  vector.  The  cross 
product  between  unit  B  and  unit  b  is  an  approximation  to  this  error  vector  for  magnetic 
magnetic  control  systems,  where:  B  =  magnetometer  output  and  b  = 

predicted  magnetic  field  vector  based  on  emphemeris  data  and  a  spherical  harmonic  model 


Figure  J.3  NPSAT1  ACS  Attitude  Error  Sub-Model 


REDUCED  ORDER  ESTIMATOR  BLOCK 


DEFINITIONS  :  Given  the  equations  of  state  xdot  =  Ax  +Bu  +Gw  and  y  =Cx  +Du, 
where  for  this  problem  x  =[phi , theta, psi  .phi dot.thetadot.psi dot]'  =:[x1 ,  x2,  x3, x4,  x5,  x6]', 

The  reduced  order  estimator  is  used  toestimate  xb  =:  [x4,  x5,  x6]'  from  the  input 

xa  =:[x1  ,x2,x3]'.  For  this  problem,  y=xa  (i.e,  C  =eye(3)  and  D=0).  Similarto  the  partitioning 

of  x=[xa,xb]' ,  A=[Aaa  Aab;  Aba  Abb],  B=[Ba  ;  Bb],  and  G=[Ga  ;  Gb].  Where 

A,  B,  G  are  defined  in  the  M-file  and  the  corresponding  block  diagram  is  shown  above  (REF  1). 

The  controller  gain  K  is  derived  using  the  "Iqr"  Matlab  command.  Attempts  to  derive  the  reduced 

estimator  gain  Lr  using  the  Matlab  "place"  and  "kalman"  commands  were  not  very  satisfying;  but, 

Lr  =  0.2’eye(3)  produced  satisfactory  responses. 

Reference  1 .  "Feedback  Control  Of  Dynamic  Systems";  Franklin,  Powell,  Emami-Naeini;  Addison 
Wesley  ,1988  pp  352-356. 


Figure  J.4  NPSAT1  ACS  Reduced  Order  Estimator  Sub-Model 
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TORQUE  ROD  CONTROL  LAW 


This  block  uses  the  magnetic  actuator  control  law  given  by  Sidi  (Ref  5  pg  129) : 
mr  =  BxTr/  BA2  where  B  is  the  magnetometer  output,  Tr  is  the  requested  control 
torque  and  mr  =  [mxr  myr  mzr]  is  the  requested  linear  magnetic  moment .  The 
saturation  blocks  which  follow  this  block  limit  the  magnetic  moment  per  specs. 

Figure  J.5  NPSAT1  ACS  Torque  Rod  Control  Law  Sub-Model 
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APPENDIX  K.  NPSAT1  AIR-BEARING  “HARDWARE-IN-THE- 

LOOP”  PROGRAM 


This  Appendix  contains  the  MATLAB  program  that  was  drafted  to  be  used  with  model 
displayed  in  Appendix  J. 

%  LCDR  Eric  Herbert,  USN,  NPS 
%  NPSAT 1  Magnetic  ACS  Air-Bearing  Simulation 
%  Modeled  after  NPSAT  1  ACS  Algorithm 
%  The  algorithm  is  designed  to  accomplish  two  tasks: 

%  1)  simulate  and  plot  the  torque  output  based  on 
%  labratory  mag  field  surveys  and  corrected  2005  IGRF  data 
%  2)  interface  the  NPSAT  1  ACS  REO  plant  to  the  RS232  I/O  device 
%  and  the  XP  Target/Host  applications 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear, 

clc 

Re=6.37814e6;  %  Earth  equatorial  radius  (meters):  p.  827  Wertz 

mu=3.98601el4;  %  gravity  constant  (mA3/sA2) 

h=  1 ;  %  altitude  (meters) 

ms=50;  %  air  bearing  table  mass  (kg) 

gr=9.8066;  %  gravity  constant  m/sA2 

lv=0.001;  %  Table  mass~kg,  g~m/sA2,  lever  ann~m 

r=Re+h;  %definitions  to  match  Wertz  pg  780 

a=Re; 

wo=0;  %  sqrt(mu/(Re+h)A3);  equivalent  orbit  rate 

%  Greatest  Field  components  in  Room  frame 

%  at  theta  =  90  degrees  inclination  from  Z  axis;  phi  =120  degrees 

%  data  collected  from  lab  survey  #  3 

bx=8.17e-5; 

by=5.28e-5; 

bz=1.93e-5; 

b2=(bx.A2+by.A2+bz.A2); 

%  Table  moments  of  inertia  (MOI)~kg.mA2  as  of  1  Aug  2004 

Ix=2.743178;  Iy=2.642236;  Iz=2.007684; 

Ixy=-0. 00326705 1 ;  Ixz=0.03089219;  Iyz=-0.002887149; 

Imoi=[Ix  -Ixy  -Ixz;-Ixy  Iy  -Iyz;-Ixz  -Iyz  Iz];  %MOI  matrix 
Iinv=inv(Imoi);  %MOI  matrix  inverse 

pho=.  1  *3;tho=-.  1  *3;pso=pi/3;  %initial  Euler  angles  (phi, theta, psi)  ~r 

phdo=-0. 1  ;thdo=0. 1  ;psdo=0.0 1 ;  %initial  Euler  angle  rates  ~r/s 
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phdo=-0 .0  ;thdo=0 . 0  ;psdo=0 . ; 

%calculation  of  initial  quaternion  (qo)  and  angular  momentum  (Ho): 

sl=sin(pho/2);  s2=sin(tho/2);  s3=sin(pso/2); 
cl=cos(pho/2);  c2=cos(tho/2);  c3=cos(pso/2); 
qlo=sl*c2*c3-cl*s2*s3;  %Wie  pg.321 

q2o=c 1 *s2*c3+s  1*02*83; 

q3o=c  1  *c2*s3-sl  *s2*c3;q4o=c  1  *c2*c3+sl  *s2*s3; 

Sl=sin(pho);S2=sin(tho);S3=sin(pso);Cl=cos(pho);C2=cos(tho);C3=cos(pso); 

wxo=phdo-psdo*S2-wo*S3*C2; 

wyo=thdo*Cl+psdo*C2*Sl-wo*(C3*Cl+S3*S2*Sl); 

wzo=psdo*C2*Cl-thdo*Sl-wo*(S3*S2*Cl-C3*Sl); 

qo=[qlo  q2o  q3o  q4o];  Ho=Imoi*[wxo  wyo  wzo]’; 

%Calculation  of  spherical  hannonic  magnetic  field  model  (Wertz  pp779-783) 


%  IGRF  Epoch  2000  Guassian  coefficients  ~  n.T  : 

g_initial=[-29615  -1728  00000000  0;  %2000  IGRF  g  coef  ref  (1) 

-2267  3072  1672  0000000  0; 

1341  -2290  1253  715  0  00  00  00; 

935  787  251  -405  110  00  00  00; 

-217  351  222  -131  -169  -12  0  0  0  0  0; 

72  68  74  -161  -5  17  -91  00  00; 

79  -74  0  33  9  7  8  -2  0  0  0; 

25  6-9  -8  -17  9  7  -8  -7  0  0; 

5  9  3  -8  6-9  -2  9-4-8  0; 

-2  -62-3  04  1  24  0-1]; 


g_correct_factor=5*[14.6  10.7  00000000  0;  %  2005  IGRF  g  coef  correction  factor 
-12.4  1.1  -1.1  0  0  0  0  0  0  0  0;  %  which  is  multiplied  by  scaler  5 

0.7  -5.4  0.9  -7.7  0  0  0  0  0  0  0;  %  for  each  year  from  2000 

-1.3  1.6  -7.3  2.9  -3.2  0  0  0  0  0  0;  %  same  concept  for  h  correction 

0-0.7-2.1  -2.8  -0.82.5  0  00  00; 

1  -0.4  0.9  2  -0.6-0.3  1.2  00  00; 

.0.4  -0.4  -0.3  1.1  1.1  -0.2  0.6  -0.9  0  0  0; 

-0.3  0.2  -0.3  0.4  -1  0.3  -0.5  -0.7  -0.4  0  0; 

0000000000  0; 

0000000000  0]; 


gg=g_initial+g_correct_factor;  %IGRF2000  g  coefficient  corrected  to  2005 

h_initial=[0  5186  000000000;  %  2000  IGRF  h  coef 

0  -2478  -458  0000000  0; 

0  -227  296  -492  0  0  0  0  0  0  0; 
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0  272  -232  119-3040  00  00  0; 

0  44  172  -134  -40  107  00  00  0; 

0  -17  64  65  -61  1  440  00  0; 

0  -65  -24  6  24  15  -25  -6  0  0  0; 

0  12  -22  8  -21  15  9-16  -3  0  0; 

0  -20  13  12  -6-8  94-8  5  0; 

0  1  045  -6-1  -3  0  -2  -8]; 

h_correct_factor=5*[0  -22.5  00000000  0;  %h  coefficient  correction  factor 
0  -20.6  -9.6  0000000  0; 

0  6  -0.1  -14.2  0  00  00  00; 

0  2.1  1.3  5  0.3  00  00  00; 

0-0.1  0.6  1.7  1.90.1  0  00  00; 

0-0.2  -1.4  0-0.8  00.90  00  0; 

0  1.1  0  0.3  -0.1  -0.6-0.7  0.2  0  0  0; 

0  0.1  0  0  0.3  0.6  -0.4  0.3  0.7  0  0; 

0000000000  0; 

0000000000  0]; 

hh=h_initial+h_correct_factor;  %  IGRF2000  h  coeffiecient  corrected  to  2005 

Kme=(a/r)A3*sqrt(gg(  1 ,  l)A2+gg(  1 ,2)A2+hh(  1 ,2)A2)* le-9;  %dipole  strength-Tesla 
sat=30;  Tswitch=10;  ka=[l  1  1]; 

%Calc  of  state  space  A,B,G  matrices  follows  (xdot=Ax+Bu+Gw,w=disturbance) 

A=[0  0  0  1  0  0;0  0  0  0  1  0;0  0  0  0  0  l;-ms*gr*lv/Ix  0  0  0  0  0;... 

0  -ms*gr*lv/Iy  0  0  0  0;0  0  0  0  0  0]; 

B=Kme*[0  0  0;0  0  0;0  0  0;ka(l)/lx  0  0;0  ka(2)/Iy  0;0  0  ka(3)/Iz]; 
C=[eye(3),zeros(3)]; 

G=[0  0  0;0  0  0;0  0  0;1/Ix  0  0;0  1/Iy  0;0  0  1/Iz]; 
wr=sqrt(ms  *  gr  *  lv/Ix) ; 
wp=sqrt(ms*gr*lv/Iy); 

Qx=l*eye(6); 

Ru=le-7*diag([l  1  2]);  %[4  1  1.5]@20%  modulation 

[Klqr,S,e]=lqr(A,B,Qx,Ru); 

Kp=Klqr(l:3,l:3); 

Kd=Klqr(l;3,4;6); 

pe=6*[-abs(e(l))  -abs(e(3))  -abs(e(5))]; 

K=Klqr; 

%partitioning  of  A,B,G  matrices  required  for  reduced  order  estimator; 

Aaa=A(  1:3,1 :3);Aab=A(  1 :3,4;6);Aba=A(4;6, 1 :3);Abb=A(4:6,4:6); 

Ba=B(  1:3,1 :3);Bb=B(4;6, 1 :3);Ka=K(l  :3, 1 :3);Kb=K(  1 :3,4:6); 

Ga=G(l:3,l  :3);Gb=G(4;6, 1 :3); 
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Lr=(place(Abb’,Aab’,pe))'; 

gx=(byA2+bzA2)/b2;  gy=(bxA2+bzA2)/b2;  gz=( b x  A 2 + b y A  2  )/b 2 ; 

%sim('airbearing_simulation') 

sim('acs_airbearing_static_test_model_5aug04’) 

%sim(’ACS_Airbearing_Static_Test_Model_28JUL04') 

figure(l) 

plot(tout,Tx,'r', tout, Ty,'b’,tout,Tz,'g'), grid  on 
title(’NPSATl  Magnetic  ACS  3-Axis  Torque  Generation’) 
xlabel(’Seconds'),  ylabel(’Torque  (Newton-Meters)') 

%axis([0  .8  -3.5el2  1.5el2]) 

LEGEND('Tx’,’Ty',’Tz') 

tau=sqrt(Tx.A2+Ty.A2+Tz.A2); 

figure(2) 

plot(tout,tau),grid  on 

title(’NPSATl  Magnetic  ACS  3-Axis  Torque  Magnitude') 
xlabel('Seconds'),ylabel(’T orque  (Newton-Meters)') 

%axis([0  1  lelO  5el2]) 


%Simulink  RS232  set  up  parameters 

RS232.SendData  =  '%d,%d,%d,%d,%d\n';  %  d#l=command  ;  d#2-d#4=tx,ty,tz  ;  d#5=time 
duration 

RS232.RecData  =  '%d,%d,%d\r';  %  d#l-3=magneto meter  readings,  bx,by,bz 

RS232.InputPorts  =  [1  2  3  4  5];  %  identification  of  serial  port  block  parameters 

RS232.0utputPorts  =  [12  3];  %  identification  of  serial  port  block  parameters 

RS232. Timeout  =  0.005;  %  time  out  value  must  be  less  than  50  millisec- 

onds?(maybe) 

RS232.EOM  =1;  %  end  of  message  command 


%  figure(3) 

%  plot( tout, phi, 'b', tout, theta, 'g', tout, psi,'r'),  grid  on 
%  title('Euler  Angle  Decay') 

%  xlabel('Seconds'),  ylabel(’ Angle  (degree)') 

%  %axis([0  1000  -0.4  1]) 

%  legend('Phi’, 'Theta', 'Psi') 

%  figure(4) 

%  plot( tout, mxr,’g', tout, myr,’r’, tout, mzr,’b'), grid  on 
%  title(’NPSAT  1  Magnetic  ACS  Dipole  Moments') 

%  xlabel('Seconds'),ylabel(’Amp  meterA2') 

%  %axis([0  800  -1000  1000]) 

%  legend(’mxr’,’mry’,'mrz') 

%  figure(5) 

%  plot(tout,Torque(:,l),’b',tout,Torque(:,2),'r',tout,Torque(:,3),'g'),grid  on 
%  title('NPSAT  1  Solenoid  Torque'), xlabel('Seconds'),ylabel(’Newton  meters') 
%  %axis([0  800  -2500  2500]) 

%  legend(’Torque-X’, 'Torque- Y','Torque-Z') 
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APPENDIX  L.  NPSAT1  AIR-BEARING  SOLENOID  FM-1  MAGNETIC 
FIELD  AND  GENERATED  TORQUE  PROGRAMS 


This  Appendix  contains  the  MATLAB  programs  drafted  to  analyze  data  collected  while 
measuring  the  magnetic  fields  of  the  MICROCOSM  magnetic  torque  rods. 


%  LCDR  Eric  W.  Herbert,  USN,  Naval  Post  Graduate  School,  Monterey,  CA 
%  18  August  2004,  X  Torque  Rod  Magnetic  Field  and  Torque  Calculations 

%0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o0/o%%%clear 

all,  clc 

%  sampling  frequency 
%  sampling  period 
%  rod  radius  (meters) 

%  Area  enclosed  by  each  turn  in  coil 
%  rod  dipole  moment(amp  metersA2)  at  145  mA 
%  max  current  through  solenoid  (amps) 

N=mu_M/(max_i*pi*rA2);  %  #  coils  on  rod 
%  current  at  bit  levels  255,128,64,32,16,8,4,2,1 

I=[140e-3  70e-3  35e-3  17.5e-3  8.75e-3  4.375e-5  2.1875e-3  1.09375e-3  .546875e-3]; 

Bits=[255 1:0]; 

I_step=linspace(140e-3,.546875e-3,256); 

mu=N*A.*I;  %  calculated  dipole  moments  as  I  decreases 


fs=20; 

ts=l/fs; 

r=  13.5/1 000; 

A=pi*rA2; 

mu_M=33; 

max_i=145e-3; 


%  load  measured  data 

X255=load  (’XMFLD255.txt’);  X128=load(’XMFLD128.txf);X64=load(’XMFLD64.txf); 
X32=load('XMFLD32.txf );  X 1 6=load('XMFLD  1 6.txt');  X8=load('XMFLD8.txf ); 
X4=load('XMFLD4.txf );  X2=load(’XMFLD2 .txf );  X 1  =load(’XMFLD  1  .txf ); 


%  extract  magnetic  north  bearing  from  measured  data 
X255=X255(:,1:3);  X128=X128(:,1:3);  X64=X64(:,1:3); 
X32=X32(:,1:3);  X16=X16(:,1:3);  X8=X8(:,1:3); 
X4=X4(:,1:3);  X2=X2(:,1:3);  X1=X1(:,1:3); 


%  external  magnetic  field  (Tesla) 

B=sqrt((X255(  1 , 1)).A2+(X255(  1 ,2)).A2+(X255(  1 ,3)).A2); 
Bfld=B  *(1.5e-8); 


%  convert  induced  magnetic  field  (Tesla) 

%  and  Torque  Measurements(Newton  meters) 

for  i=l:size(X255) 

X255 A(i,:)=X255(  1  ,:)-X255(i,:); 
X255B=X255A.*(1.5e-8); 
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X255C=X255.*(1.5e-8); 

B255(i)=sqrt((X255B(i,l)).A2+(X255B(i,2)).A2+(X255B(i,3)).A2); 

T255=B255.*mu(l); 

t=[0:.05:20.5]; 

end 

for  i=l:size(X128) 

X128A(i,l:3)=X128(l,l:3)-X128(i,l:3); 

X128B=X128A.*(1.5e-8); 

X128C=X128.*(1.5e-8); 

B128(i)=sqrt((X128B(i,l)).A2+(X128B(i,2)).A2+(X128B(i,3)).A2); 
T128=B128.*mu(2); 
tl=[0:ts:  14.3]; 
end 

for  i=l:size(X64) 

X64A(i,  1 :3)=X64(  1 , 1 :3)-X64(i,  1 :3); 

X64B=X64A.*(1.5e-8); 

X64C=X64.*(1.5e-8); 

B64(i)=sqrt((X64B(i,l)).A2+(X64B(i,2)).A2+(X64B(i,3)).A2); 
T64=B64.*mu(3); 
t2=[0:ts:  12.65]; 
end 

for  i=l:size(X32) 

X32  A(i,  1 :3)=X32(  1 , 1 :3)-X32(i,  1 :3); 

X32B=X32A.*(1.5e-8); 

X32C=X32.*(1.5e-8); 

B32(i)=sqrt((X32B(i,l)).A2+(X32B(i,2)).A2+(X32B(i,3)).A2); 
T32=B32.*mu(4); 
t3=[0:ts:  12.9]; 
end 

for  i=l:size(X16) 

X 1 6A(i,  1 : 3)=X  1 6(  1 , 1 :3)-X  1 6(i,  1:3); 

X16B=X16A.*(1.5e-8); 

X16C=X16.*(1.5e-8); 

B 1 6(i)=sqrt((X  1 6B(i,  1)).A2+(X  1 6B(i,2)).A2+(X  1 6B(i,3)).A2); 
T16=B16.*mu(5); 
t4=[0:ts:l  1.3]; 
end 

for  i=l:size(X8) 

X8A(i,  1 :3)=X8(  1 , 1 :3)-X8(i,  1 :3); 

X8B=X8A.*(1.5e-8); 

X8C=X8.*(1.5e-8); 

B8(i)=sqrt((X8B(i,l)).A2+(X8B(i,2)).A2+(X8B(i,3)).A2); 

T8=B8.*mu(6); 
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t5=[0:ts:9.7]; 

end 

for  i=l:size(X4) 

X4A(i,  1 :3)=X4(  1 , 1 :3)-X4(i,  1 :3); 

X4B=X4  A.  *  ( 1 . 5  e-8) ; 

X4C=X4.*(1.5e-8); 

B4(i)=sqrt((X4B(i,l)).A2+(X4B(i,2)).A2+(X4B(i,3)).A2); 
T4=B4.*mu(7); 
t6=[0:ts:  10.55]; 
end 

for  i=l:size(X2) 

X2A(i,  1 :3)=X2(  1 , 1 :3)-X2(i,  1 :3); 

X2B=X2  A.  *  ( 1 . 5  e-8) ; 

X2C=X2.*(  1 .5  e-8); 

B2(i)=sqrt((X2B(i,l)).A2+(X2B(i,2)).A2+(X2B(i,3)).A2); 
T2=B2.*mu(8); 
t7=[0:ts:l  1.7]; 
end 

for  i=l:size(Xl) 

XI  A(i,l  :3)=X1(  1,1 :3)-Xl(i,  1:3); 

XlB=XlA.*(1.5e-8); 

X1C=X1  *(1.5e-8); 

Bl(i)=sqrt((XlB(i,l)).A2+(XlB(i,2)).A2+(XlB(i,3)).A2); 

Tl=Bl.*mu(9); 

t8=[0:ts:8.3]; 

end 

%  Capture  Data 

figure(l) 

subplot(2,2,l) 

plot(t,B255),  axis([8  15  0  5e-4]),grid  on 
title(’X  T-Rod  Mag  Field  (255)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t,T255),  axis([8  14  0  0.018]), grid  on 
title(’X  T-Rod  Torque  (255)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(tl,B128),axis([4  10  0  5e-4]),grid  on 
title(’X  T-Rod  Mag  Field  (128)’) 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(tl,T128),  axis([4  10  0  8e-3]),grid  on 
title(’X  T-Rod  Torque  (128)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
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figure(2) 

subplot(2,2,l) 

plot(t2,B64),axis([4  10  0  5e-4])  ,grid  on 
title(’X  T-Rod  Mag  Field  (64)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t2,T64),  axis([4  10  0  8e-3]),grid  on 
title(’X  T-Rod  Torque  (64)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t3,B32),axis([3  9  0  7.5e-4])  ,grid  on 
title(’X  T-Rod  Mag  Field  (32)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t3,T32),grid  on,axis([2  8  0  3e-3]) 
title('X  T-Rod  Torque  (32)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(3) 

subplot(2,2,l) 

plot(t4,B16),  axis) [3  9  0  4e-4]),grid  on 
title(’X  T-Rod  Mag  Field  (16)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t4,T16),grid  on,axis([2  7  0  8e-4]) 
title('X  T-Rod  Torque  (16)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t5,B8),axis([2  8  0  3e-4]),grid  on 
title(’X  T-Rod  Mag  Field  (8)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t5,T8),grid  on,axis([2  7  0  2.5e-6]) 
title('X  T-Rod  Torque  (8)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(4) 

subplot(2,2,l) 

plot(t6,B4),  axis([3  9  0  l.le-4]),grid  on 
title(’X  T-Rod  Mag  Field  (4)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t6,T4),grid  on,  axis([3  8  0  5.5e-5]) 
title('X  T-Rod  Torque  (4)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
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subplot(2,2,3) 

plot(t7,B2),axis([2  7  0  le-4]),grid  on 
title(’X  T-Rod  Mag  Field  (2)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t7,T2),grid  on,  axis([2  7  0  1.3e-5]) 
title('X  T-Rod  Torque  (2)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(5) 

subplot(2,2,l) 

plot(t8,Bl),  axis([2  7  0  2.5e-5]),grid  on 
title('X  T-Rod  Mag  Field  ( 1 )') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot  (2,2,2) 

plot(t8,Tl),grid  on,  axis([2  7  0  2.5e-6]) 
title('X  T-Rod  Torque  (1)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,l,2) 

semilogy(t,T255,tl,T128,t2,T64,t3,T32,t4,T16,t5,T8,t6,T4,t7,T2,t8,Tl) 

grid  on,  axis([0  14  10e-10  1]) 

title('FM- 1  TORQUE  RANGE’) 

xlabel('Seconds'),  ylabel('Newton  Meters') 

legend(’255’,T28’,’64’,’32’,T6’,’8’,’4',’2’,T) 


%  LCDR  Eric  W.  Herbert,  USN,  Naval  Post  Graduate  School,  Monterey,  CA 
%  18  August  2004,  Y  Torque  Rod  Magnetic  Field  and  Torque  Calculations 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


clear  all,  clc 
fs=20; 
ts=l/fs; 
r=  13. 5/1 000; 


A=pi*rA2; 

mu_M=33; 

max_i=145e-3; 


%  sampling  frequency 
%  sampling  period 
%  rod  radius  (meters) 

%  Area  enclosed  by  each  turn  in  coil 
%  rod  dipole  moment(amp  metersA2)  at  145  mA 
%  max  current  through  solenoid  (amps) 
N=mu_M/(max_i*pi*rA2);  %  #  coils  on  rod 
%  current  at  bit  levels  255,128,64,32,16,8,4,2,1 

I=[140e-3  70e-3  35e-3  17.5e-3  8.75e-3  4.375e-5  2.1875e-3  1.09375e-3  ,546875e-3]; 
Bits=[255 :- 1:0]; 

I_step=linspace(140e-3,.546875e-3,256); 

mu=N*A.*I;  %  calculated  dipole  moments  as  I  decreases 


%  load  measured  data 

Y255=load  ('YMFLD255.txt');  Y128=load('YMFLD128.txt');Y64=load(’YMFLD64.txt'); 
Y32=load('YMFLD32.txf);  Y16=load('YMFLD  16.txt');  Y8=load(’YMFLD8.txf); 
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Y 4=load(’ YMFLD4 .txt');  Y2=load(’YMFLD2’);  Y  l=load('YMFLD  1  .txt'); 

%  extract  magnetic  north  bearing  from  measured  data 
Y255=Y255(:,1:3);  Y128=Y128(:,1:3);  Y64=Y64(:,1:3); 

Y32=Y32(:,1:3);  Y16=Y16(:,1:3);  Y8=Y8(:,1:3); 

Y4=Y4(:,1:3);  Y2=Y2(:,1:3);  Y1=Y1(:,1:3); 

%  external  magnetic  field  (Tesla) 

B=sqrt((Y255(  1 ,  1)).A2+(Y255(  1 ,2)).A2+(Y255(  1 ,3))-A2); 
Bfld=B.*(1.5e-8); 

%  convert  induced  magnetic  field  (Tesla) 

%  and  Torque  measurement  (Newton  meters) 
for  i=l:size(Y255) 

Y255A(i,:)=Y255(l,:)-Y255(i,:); 

Y255B=Y255A.*(1.5e-8); 

Y255C=Y255.*(1.5e-8); 

B255(i)=sqrt((Y255B(i,l)).A2+(Y255B(i,2)).A2+(Y255B(i,3)).A2); 
T255=B255.*mu(l); 
t=[0:. 05:21. 65]; 
end 

for  i=l:size(Y128) 

Y128A(i,  1 :3)=Y128(  1 , 1 :3)-Y128(i,  1 :3); 

Y128B=Y128A.*(1.5e-8); 

Y128C=Y128.*(1.5e-8); 

B  128(i)=sqrt((Y128B(i,  l)).A2+(Y128B(i,2)).A2+(Y  128B(i,3)).A2); 
T128=B128.*mu(2); 
tl=[0:ts:23.2]; 
end 

for  i=l:size(Y64) 

Y64A(i,  1 :3)=Y64(  1 , 1 :3)-Y64(i,  1 :3); 

Y64B=Y64A.*(1.5e-8); 

Y64C=Y64.*(1.5e-8); 

B64(i)=sqrt((Y  64B(i,  1)).A2+(Y  64B(i,2)).A2+(Y  64B(i,3)).A2); 
T64=B64.*mu(3); 
t2=[0:ts:  19.65]; 
end 

for  i=l:size(Y32) 

Y32A(i,  1 :3)=Y32(  1 , 1 :3)-Y32(i,  1 :3); 

Y32B=Y32A.*(1.5e-8); 

Y32C=Y32.*(1.5e-8); 

B32(i)=sqrt((Y32B(i,l)).A2+(Y32B(i,2)).A2+(Y32B(i,3)).A2); 
T32=B32.*mu(4); 
t3=[0:ts:  14.85]; 
end 
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for  i=l:size(Y16) 

Y 1 6A(i,  1 :3)=Y  16(1,1 :3)-Y  1 6(i,  1 :3); 

Y16B=Y16A.*(1.5e-8); 

Y16C=Y16.*(1.5e-8); 

B 1 6(i)=sqrt((Y  1 6B(i,  1)).A2+(Y  1 6B(i,2)).A2+(Y  1 6B(i,3)).A2); 
T16=B16.*mu(5); 
t4=[0:ts:20.3]; 
end 

for  i=l:size(Y8) 

Y8A(i,  1 :3)=Y8(  1 , 1 :3)-Y8(i,  1 :3); 

Y8B=Y8A.*(1.5e-8); 

Y8C=Y8  *(1.5e-8); 

B8(i)=sqrt((Y8B(i,l)).A2+(Y8B(i,2)).A2+(Y8B(i,3)).A2); 

T8=B8.*mu(6); 

t5=[0:ts:21.2]; 

end 

for  i=l:size(Y4) 

Y4A(i,  1 :3)=Y4(  1 , 1 :3)-Y4(i,  1 :3); 

Y4B=Y4A.*(1.5e-8); 

Y4C=Y4.*(1.5e-8); 

B4(i)=sqrt((Y4B(i,l)).A2+(Y4B(i,2)).A2+(Y4B(i,3)).A2); 
T4=B4.*mu(7); 
t6=[0:ts:  18.45]; 
end 

for  i=l:size(Y2) 

Y2A(i,  1 :3)=Y2(  1 , 1 :3)-Y2(i,  1 :3); 

Y2B=Y2A.*(1.5e-8); 

Y2C=Y2.*(1.5e-8); 

B2(i)=sqrt((Y2B(i,l)).A2+(Y2B(i,2)).A2+(Y2B(i,3)).A2); 
T2=B2.*mu(8); 
t7=[0:ts:  19.25]; 
end 

for  i=l:size(Yl) 

Y 1  A(i,  1 :3)=Y  1(1,1 :3)-Y  1  (i,  1 :3); 

YlB=YlA.*(1.5e-8); 

Y1C=Y1  *(1.5e-8); 

B 1  (i)=sqrt((Y  1  B(i,  1  )).A2+(Y  1  B(i,2)).  A2+(Y  lB(i,3)).A2); 
Tl=Bl.*mu(9); 
t8=[0:ts:22.4]; 
end 

%  Capture  Data 

figure(l) 

subplot(2,2,l) 
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plot(t,B255),axis([8  14  0  4.5e-4]),grid  on 
title('Y  T-Rod  Mag  Field  (255)’) 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t,T255),axis([8  13  0  0.015]), grid  on 
title('Y  T-Rod  Torque  (255)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(tl,B128),axis([9  16  0  5.5e-4]),grid  on 
title('Y  T-Rod  Mag  Field  ( 128)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(tl,T128),Axis([10  16  0  7.5e-3]),grid  on 
title('Y  T-Rod  Torque  (128)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(2) 

subplot(2,2,l) 

plot(t2,B64),axis([9  15  0  5e-4])  ,grid  on 
title('Y  T-Rod  Mag  Field  (64)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t2,T64),axis([9  15  0  4e-3]),grid  on 
title('Y  T-Rod  Torque  (64)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t3,B32),axis([5  11  0  5.5e-4])  ,grid  on 
title('Y  T-Rod  Mag  Field  (32)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t3,T32),grid  on,axis([5  11  0  2e-3]) 
title('Y  T-Rod  Torque  (32)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(3) 

subplot(2,2,l) 

plot(t4,B16),axis([9  15  0  4e-4]),grid  on 
title('Y  T-Rod  Mag  Field  (16)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t4,T16),grid  on,axis([9  15  0  8e-4]) 
title('Y  T-Rod  Torque  (16)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t5,B8),axis([9  15  0  2e-4]),grid  on 
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title('Y  T-Rod  Mag  Field  (8)') 

xlabel('Seconds'),ylabel(’Tesla') 

subplot(2,2,4) 

plot(t5,T8),grid  on,axis([9  15  0  2.5e-6]) 
title('Y  T-Rod  Torque  (8)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(4) 

subplot(2,2,l) 

plot(t6,B4),  axis([9  15  0  le-4]),grid  on 
title('Y  T-Rod  Mag  Field  (4)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t6,T4),grid  on,axis([9  14  0  4.5e-5]) 
title('Y  T-Rod  Torque  (4)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t7,B2),axis([8  14  0  .5e-4]),grid  on 
title('Y  T-Rod  Mag  Field  (2)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t7,T2),grid  on,axis([8  14  0  1.2e-5]) 
title('Y  T-Rod  Torque  (2)') 
xlabel(’Seconds'),ylabel(’Newton*Meters') 

figure(5) 

subplot(2,2,l) 

plot(t8,Bl),  axis([9  16  0  2.3e-5]),grid  on 
title('Y  T-Rod  Mag  Field  ( 1 )') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot  (2,2,2) 

plot(t8,Tl),grid  on,axis([9  16  0  3e-6]) 
title('Y  T-Rod  Torque  (1)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

subplot(2,l,2) 

semilogy(t,T255,tl,T128,t2,T64,t3,T32,t4,T16,t5,T8,t6,T4,t7,T2,t8,Tl) 

grid  on,  axis([5  16  10e-10  5e-2]) 

title('FM-2  TORQUE  RANGE’) 

xlabel(’Seconds'),  ylabel('Newton  Meters') 

legend('255 1 28  V64','32 1 6 ','8','4','2 1 ') 
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%  LCDR  Eric  W.  Herbert,  USN,  Naval  Post  Graduate  School,  Monterey,  CA 
%  18  August  2004,  Z  Torque  Rod  Magnetic  Field  and  Torque  Calculations 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


clear  all,  clc 
fs=20; 
ts=l/fs; 
r=  13. 5/1 000; 


A=pi*rA2; 

mu_M=33; 

max_i=145e-3; 


%  sampling  frequency 
%  sampling  period 
%  rod  radius  (meters) 

%  Area  enclosed  by  each  turn  in  coil 
%  rod  dipole  moment(amp  metersA2)  at  145  mA 
%  max  current  through  solenoid  (amps) 
N=mu_M/(max_i*pi*rA2);  %  #  coils  on  rod 
%  current  at  bit  levels  255,128,64,32,16,8,4,2,1 

I=[140e-3  70e-3  35e-3  17.5e-3  8.75e-3  4.375e-5  2.1875e-3  1.09375e-3  ,546875e-3]; 
Bits=[255:-1:0]; 

I_step=linspace(140e-3,.546875e-3,256); 

mu=N*A.*I;  %  calculated  dipole  moments  as  I  decreases 


%  load  measured  data 

Z255=load  ('ZMFLD255.txt');  Z128=load(’ZMFLD128.txf);Z64=load(’ZMFLD64.txf); 
Z32=load('ZMFLD32.txt');  Z16=load('ZMFLD16.txt');  Z8=load(’ZMFLD8.txf); 
Z4=load(’ZMFLD4.txf);  Z2=load(’ZMFLD2.txf);  Zl=load(’ZMFLD  1  .txf); 


%  extract  magnetic  north  bearing  from  measured  data 
Z255=Z255(:,1:3);  Z128=Z128(:,1:3);  Z64=Z64(:,1:3); 
Z32=Z32(:,1:3);  Z16=Z16(:,1:3);  Z8=Z8(:,1:3); 
Z4=Z4(:,1:3);  Z2=Z2(:,1:3);  Z1=Z1(:,1:3); 


%  external  magnetic  field  (Tesla) 

B=sqrt((Z255(  1 , 1)).A2+(Z255(  1 ,2)).A2+(Z255(  1 ,3)).A2); 
Bfld=B  *(1.5e-8); 


%  convert  induced  magnetic  field  (Tesla)  and  Torque  (Newton  meters) 
for  i=l:size(Z255) 

Z255A(i,:)=Z255(l,:)-Z255(i,:); 

Z255B=Z255A.*(1.5e-8); 

Z255C=Z255  *(1.5e-8); 

B255(i)=sqrt((Z255B(i,l)).A2+(Z255B(i,2)).A2+(Z255B(i,3)).A2); 
T255=B255.*mu(l); 
t=[0:. 05:14.1]; 
end 

for  i=l:size(Z128) 

Z128A(i,l:3)=Z128(l,l:3)-Z128(i,l:3); 

Z128B=Z128A.*(1.5e-8); 

Z128C=Z128.*(1.5e-8); 

B128(i)=sqrt((Z128B(i,l)).A2+(Z128B(i,2)).A2+(Z128B(i,3)).A2); 
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T128=B128.*mu(2); 
tl=[0:ts:l  1.65]; 
end 

for  i=l:size(Z64) 

Z64A(i,  1 :3)=Z64(  1 , 1 :3)-Z64(i,  1:3); 

Z64B=Z64A.*(1.5e-8); 

Z64C=Z64.*(1.5e-8); 

B64(i)=sqrt((Z64B(i,l)).A2+(Z64B(i,2)).A2+(Z64B(i,3)).A2); 
T64=B64.*mu(3); 
t2=[0:ts:  13.55]; 
end 

for  i=l:size(Z32) 

Z32  A(i,  1 :3)=Z32(  1 , 1 :3)-Z32(i,  1:3); 

Z32B=Z32A.*(  1 .5e-8); 

Z32C=Z32.*(  1 .5e-8); 

B32(i)=sqrt((Z32B(i,l)).A2+(Z32B(i,2)).A2+(Z32B(i,3)).A2); 

T32=B32.*mu(4); 

t3=[0:ts:8.6]; 

end 

for  i=l:size(Z16) 

Z16A(i,l:3)=Z16(l,l:3)-Z16(i,l:3); 

Z16B=Z16A.*(1.5e-8); 

Z16C=Z16.*(1.5e-8); 

B 1 6(i)=sqrt((Z  1 6B(i,  1)).A2+(Z  1 6B(i,2)).A2+(Z  1 6B(i,3)).A2); 
T16=B16.*mu(5); 
t4=[0:ts:9.05]; 
end 

for  i=l:size(Z8) 

Z8A(i,  1 :3)=Z8(  1 , 1 :3)-Z8(i,  1 :3); 

Z8B=Z8A.*(1.5e-8); 

Z8C=Z8.*(1.5e-8); 

B8(i)=sqrt((Z8B(i,l)).A2+(Z8B(i,2)).A2+(Z8B(i,3)).A2); 

T8=B8.*mu(6); 

t5=[0:ts:8.3]; 

end 

for  i=l:size(Z4) 

Z4A(i,  1 :3)=Z4(  1 , 1 :3)-Z4(i,  1 :3); 

Z4B=Z4A.*(1.5e-8); 

Z4C=Z4.*(1.5e-8); 

B4(i)=sqrt((Z4B(i,l)).A2+(Z4B(i,2)).A2+(Z4B(i,3)).A2); 
T4=B4.*mu(7); 
t6=[0:ts:  10.65]; 
end 
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for  i=l:size(Z2) 

Z2A(i,  1 :3)=Z2(  1 , 1 :3)-Z2(i,  1 :3); 

Z2B=Z2A.*(1.5e-8); 

Z2C=Z2.*(1.5e-8); 

B2(i)=sqrt((Z2B(i,l)).A2+(Z2B(i,2)).A2+(Z2B(i,3)).A2); 
T2=B2.*mu(8); 
t7=[0:ts:  10.4]; 
end 

for  i=l:size(Zl) 

Z 1  A(i,  1 :3)=Z  1(1,1 :3)-Z  1  (i,  1:3); 

ZlB=ZlA.*(1.5e-8); 

ZlC=Zl.*(1.5e-8); 

B  l(i)=sqrt((Z  lB(i,  1)).A2+(Z  lB(i,2)).A2+(Z  lB(i,3)).A2); 
Tl=Bl.*mu(9); 
t8=[0:ts:8.5]; 
end 

capture  data 

figure(l) 

subplot(2,2,l) 

plot(t,B255),axis([3  9  0  6e-4]),grid  on 
title(’Z  T-Rod  Mag  Field  (255)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t,T255),axis([3  9  0  0.02]), grid  on 
title(’Z  T-Rod  Torque  (255)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(tl,B128),axis([2  9  0  5.5e-4]),grid  on 
title(’Z  T-Rod  Mag  Field  ( 128)') 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(tl,T128),axis([2  9  0  0.0 1  ]),grid  on 
title(’Z  T-Rod  Torque  (128)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(2) 

subplot(2,2,l) 

plot(t2,B64),axis([5  12  0  6e-4])  ,grid  on 
title(’Z  T-Rod  Mag  Field  (64)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t2,T64),axis([5  12  0  5e-3]),grid  on 
title(’Z  T-Rod  Torque  (64)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
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subplot(2,2,3) 

plot(t3,B32),axis([2  8  0  5.5e-4])  ,grid  on 
title(’Z  T-Rod  Mag  Field  (32)’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t3,T32),grid  on,axis([2  8  0  2.5e-3]) 
title(’Z  T-Rod  Torque  (32)') 
xlabel(’Seconds'),ylabel(’Newton*Meters') 

figure(3) 

subplot(2,2,l) 

plot(t4,B16),axis([2  7  0  5e-4]),grid  on 
title(’Z  T-Rod  Mag  Field  (16)’) 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t4,T16),grid  on,axis([2  7  0  le-3]) 
title(’Z  T-Rod  Torque  (16)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t5,B8),axis([2  7  0  2.5e-4]),grid  on 
title(’Z  T-Rod  Mag  Field  (8)’) 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t5,T8),grid  on,axis([2  7  0  2.5e-6]) 
title(’Z  T-Rod  Torque  (8)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 

figure(4) 

subplot(2,2,l) 

plot(t6,B4),axis([2  8  0  1.2e-4]),grid  on 
title(’Z  T-Rod  Mag  Field  (4)') 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,2) 

plot(t6,T4),grid  on,axis([2  8  0  5.5e-5]) 
title(’Z  T-Rod  Torque  (4)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
subplot(2,2,3) 

plot(t7,B2),axis([2  8  0  5e-5]),grid  on 
title(’Z  T-Rod  Mag  Field  (2)’) 
xlabel(’Seconds'),ylabel(’Tesla') 
subplot(2,2,4) 

plot(t7,T2),grid  on,axis([2  7  0  1.4e-5]) 
title(’Z  T-Rod  Torque  (2)') 
xlabel('Seconds'),ylabel(’Newton*Meters') 
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figure(5) 

subplot(2,2,l) 

plot(t8,Bl),axis([2  7  0  2.3e-5]),grid  on 
title(’Z  T-Rod  Mag  Field  ( 1 )’) 
xlabel('Seconds'),ylabel(’Tesla') 
subplot  (2,2,2) 

plot(t8,Tl),grid  on,axis([2  7  0  3e-6]) 
title(’Z  T-Rod  Torque  (1)') 
xlabel('Seconds'),ylabel('Newton*Meters') 
subplot(2,l,2) 

semilogy(t,T255,tl,T128,t2,T64,t3,T32,t4,T16,t5,T8,t6,T4,t7,T2,t8,Tl) 

grid  on,  axis([0  12  10e-10  5e-2]) 

title('FM-3  TORQUE  RANGE') 

xlabel('Seconds'),  ylabel('Newton  Meters') 

legend('255',T28’,'64',’32',T6',’8','4','2',T) 


figure(6) 

semilogy(t7,B2),  grid  on,  axis([2  11  10e-9  10e-5]) 
title('FM-3  Residual  Magnetism  Example') 
xlabel('Seconds'),  ylabel('Newton  Meters') 
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